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13 IDENTIFICATION 


17 PRODUCT CODE: AC-T875C-MC 

19 PRODUCT NAME: COKTACO KTJ11-B8 DIAGNOSTIC 

21 PRODUCT DATE: MARCH, 1985 

23 MAINTAINER : SMALL SYSTEMS DIAGNOSTIC ENGINEERING 


29 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIB1_ITY 
32 FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBLITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON 
35 EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES. 


36 

37 COPYRIGHT (C): 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION © 
38 

39 THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


41 DIGITAL POP UNIBUS MASSBUS 
42 DEC DECUS DECTAPE DECX/11 
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SEQ 0003_— 
67 
68 
69 
Be ABSTRACT 
1 
72 The following diagnostic tests the Unibus Adapter (UBA) module, KTJ11-8. 
73 The functionality of the module is: Unibus - PMI bus adepter (where PMI is 
74 e faster version of a Q22-bus), M9312 compatible boot facility, and the Unibus 
76 transfers from memory to Unibus devices. The UBA can be programmed to do 
77 diagnostic cycles to verify some of the functionality without requiring 
L. any of the periphirals to be actually connected to the Unibus. 
80 
oe 2. RUN-TIME REQUIREMENTS 
83 This diagnostic is the only one written specifically for the UBA module. 
84 Therefore, depending on the environment in which the program is run, different 
4 devices can be used. 
i Minimum hardware needed to run the diagnostic: 
89 1) KDJ11-B CPU module 
90 2) at least 28K of memory 
91 3) KTJ11-B UBA module 
92 4) console terminal 
= 5) load media 
95 To do further functional verification of the module 2 Unibus Exercisers (UBE) 
96 ere required. This should be done in manufacturing or any other environment that 
97 needs verification of ALL functions of the UBA. 
98 


75 Map logic. The module also has a DMA cache store, utilised for doing DMA 
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3. STARTING PROCEDURE 


The diagnostic is a standart XXDP program with APT interface. Therefore, in 
stanalone mode, after booting the system, typing in: 


R OKTAB? 


will start the program, which will then promt the operator for the software 
register switch setting desribed below. 


COKTABO KTJ11-B DIAGNOSTIC 
SWR = XXXXXX NEW = 


Where “XXXXXX" correspond to the old setting of the software switch register. 


At this point an operator can either type in ea carriage return, which would 
leave the software switch register as it was, or change it, according to the 
following parameters. 


OPERATIONAL SWITCH SETTINGS 


TAL MEANING 
SW<15>=1... 100000 HALT ON ERROR 
SW<14>=1... 40000 LOOP ON CURRENT TEST 
SW<13>=1... 20000 INHIBIT ERROR TYPEOUTS 
SW<il>=1... 4000 INHIBIT ITERATIONS 
SW<10>=1... 2000 RING TTY BELL ON ERROR 
SW<9>=1... 1000 LOOP ON ERROR 
SW<8>=1... 400 LOOP ON TEST SPECIFIED IN SwW<5> 

THRU SW<O> 


For example: 

SWR = 000000 NEW = 100000 
In this case the old software switch register didn't set ary flags. The 
new setting will make the diagnostic halt on error. 


If ran from a UFD chain file, the diagnostic is fully under control of 
the UFD monitor that will report only PASS/FAIL messages. 
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4. ERROR REPORTS 


If ran in standalone mode, the diagnostic reports all errors to a functional 
level and then continues. Failing program counter, test number, and error 
number are printed out for all errors. Where possible expected and received 
date are also provided. 

Refer to OPERATIONAL SWITCH SETTINS if anything different is required. 


Example of error printout: 


ERROR IN THE M9312 BOOT ROM SECTION 
TEST ERROR ERROR 


tt PC 7 
33 12650 31 
a EXECUTION TIME 
The diagnostic runs ea full pass in less than a minute. 
6. UBA REGISTER DEFINITION 
DDR The Diagnostic Data register is a buffer that provides the ability of 


reading and writing the data to and from memory in diagnostic mode. 


DCSR The Diagnostic Control and Status register provides means of going in 
and out of standalone mode and also of initiating diagnostic DATI from 
memory cycles. 


KMCR The KTJ11-B Memory Configuration register identifies the amount of 
Unibus memory persent in the system. It is also responsible for 
controllling and describing the status of the DMA cache. 


' 
EE TT Se SS SS 
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SEQ 0006 
$79 Fe TESTS LIST ~ 
181 TEST 1 - UNIBUS MAP REGISTER TESTS 
182 TEST 2 - UNIBUS MAP REGISTER BIT PATTERN 
183 TEST 3 - UNIBUS MAP REGISTER ADDRESS UNIQUENESS 
184 TEST 4 - UNIQENESS BETWEEN LOW MAP REGISTERS AND HIGH MAP REGISTERS 
185 TEST 5 - DCSR REGISTER RESPONSE TEST 
186 TEST 6 - KMCR BITS TEST 
187 TEST 7 - UNIBUS TIMEOUT TEST 
188 TEST 8 - DATA OUT WITHOUT RELOCATION 
189 TEST 9 - DATA IN WITHOUT RELOCATION 
190 TEST 10 - CONTENT OF DOR 
191 TEST 11 - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
192 TEST 12 - DISABLING OF THE MAPPING REGISTERS 
193 TEST 13 - NXM MEMORY TIMEOUT 
194 TEST 14 - CARRY PROPOGATION TEST 
195 TEST 15 - EXTENSIVE CARRY PROPOGATION TEST 
196 TEST 16 - ALU TEST 
197 TEST 17 - MAIN MEMORY DISABLE 
198 TEST 18 - CACHE PRESENCE 
199 TEST 19 - CACHE DISABLED AND KMCR 
200 TEST 20 - AVAILABILITY OF SETS 
201 TEST 21 - DEALLOCATION OF SETS 
202 TEST 22 - CACHE WITH RELOCATION DISABLED 
203 TEST 23 - WRITE CYCLES AND CACHE 
204 TEST 24 - DMA READ WITH INDEX NOT ZERO 
205 TEST 25 - TAG REGISTERS 
206 TEST - CACHE RAM BIT PATTERN TEST 
207 TEST 27 - BOOT ROMS TEST 
208 TEST 28 - UNIBUS MEMORY TEST 
209 TEST 29 - UBE AUTOSIZING ROUTINE 
210 TEST 30 - NPG ARBITRATION 
211 TEST 31 - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
212 TEST 32 - BR7-BR4 ARBITRATION 
213 TEST 33 - ARBITRATION BETWEEN INTERRUPTS AND PIRQ'S 
214 TEST 34 - ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
215 TEST 35 - POWER DOWN TEST 
216 TEST 36 - WRONG PARITY TEST 
217 TEST 37 - NO SACK TIMEOUT 
218 TEST 38 - NO INTERRUPT TEST 
219 TEST 39 - UNIBUS DEVICE DATO CYCLE 
220 TEST 40 - UNIBUS DEVICE DATI CYCLE 
221 TEST 41 - UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
222 TEST 42 - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
223 TEST 43 - ALU TEST USING UBE 
224 TEST 44 - CARRY PROPOGATION TEST USING UBE 
225 TEST 45 - NXM TEST USING UBE 
226 TEST 46 - RELOCATION WITH UNIBUS MEMORY 
227 . TEST 47 - MAIN MEMORY DISABLE THRU UBE 
228 TEST 48 - UNIBUS DEVICE DATOB CYCLE 
229 TEST 49 - UNIBUS DEVICE DATIP CYCLE 
230 TEST 50 - UNIBUS DEVICE I/0 PAGE READ CYCLE 
231 TEST 51 - UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
232 TEST S52 - MAPPING REGISTERS TEST USING UBE 
233 TEST 53 - UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 
234 TEST 54 - WRONG PARITY AND CACHE 
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$SWR=167400 
$SWRMK=300 
-TITLE KTJ11-B DIAGNOSTIC 
;*COPYRIGHT (C) MAY 83 
;*DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


;* 
;*PROGRAM BY DIAG. ENG. 


a 


;* 

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;*PACKAGE CMAINDEC-11-DZQAC-C8), OCT, 1982. 

;* 

$TN=1 

-SBTTL OPERATIONAL SWITCH SETTINGS 

;* 

5 SWITCH USE 

SE mmm we mw nn 

;* iS HALT ON ERROR 

;* 14 LOOP ON TEST 

;* 13 INHIBIT ERROR TYPEOUTS 

;* 11 INHIBIT ITERATIONS 

p* 10 BELL ON ERROR 

;* 9 LOOP ON ERROR 

;* 8 LOOP ON TEST IN SWR<5:0> 

-SBTTL BASIC DEFINITIONS 

;*INITIAL ADDRESS OF THE STACK POINTER *#* 1100 ««« 
STACK= 1100 

ERROR= EMT ;;BASIC DEFINITION OF ERROR CALL 
SCOPE= I0OT ;:;BASIC DEFINITION OF SCOPE CALL 
;*MISCELLANEOUS DEFINITIONS 

HT= il ;;CODE FOR HORIZONTAL TAB 

LF= i2 ;;CODE FOR LINE FEED 

CR= i5 ;:;CODE FOR CARRIAGE RETURN 

CRLF = 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
aie ala ; ;PROCESSOR STATUS WORD 

STKLMT= 177774 ;;STACK LIMIT REGISTER 

PIRQ= 177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 + sHARDWARE SWITCH REGISTER 
DDISP= 177570 ;HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEFINITIONS 

RO= #0 ; ;GENERAL REGISTER 

Ri= #1 ; ;GENERAL REGISTER 

R2= %2 ; ;GENERAL REGISTER 

R3= %3 ; ;GENERAL REGISTER 

R4= 64 ; ;GENERAL REGISTER 

R5= #5 ; ;GENERAL REGISTER 

R6= #6 ;:;GENERAL REGISTER 

R7= 67 ; ;GENERAL REGISTER 

SP= #6 ;:;STACK POINTER 

PC= 67 ; ;PROGRAM COUNTER 


;*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ;;PRIORITY LEVEL O 


SE ES RS Ee re He me 
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PRi= 40 ;;PRIORITY LEVEL 1 
PR2= 100 ; PRIORITY LEVEL 2 
PR3= 140 ;;PRIORITY LEVEL 3 
PR4= 200 ;;PRIORITY LEVEL 4 
PRS= 240 ; ;PRIORITY LEVEL 5 
PR6= 300 ; ;PRIORITY LEVEL 6 

ITY LEVEL 7 


PR7= 340 ; sPRIOR 
;*"SWITCH REGISTER” SWITCH DEFINITIONS 
SW1i5= 00000 


SW1ii= 4000 
SW1i0= 2000 
SWO9= 1000 
SWO8= 400 
SWO7= 200 
SWO6= 100 
SWOS= 40 
SWO4= 20 
SWO3= 10 
SWO2= 4 
SWOl= 2 
SWOO= 1 
SW9= SWO9 
SW8= SWO8 
SW7= SWO7 
SW6= SWO6 
SW5= SWOS 
SW4= SWO4 
SW3= SWO3 
SW2= sWO02 
SWi= SWO1 
SWO= SWOO 
;*DATA BIT DEFINITIONS (BITOO TO BIT1S) 
BIT15= 100000 
BIT14= 40000 
BIT1i3= 20000 
BITi2= 10000 
BIT1ii= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BITO6= 100 
BITOS= 40 
BITO4= 20 
BITO3= 10 
BITO2= 4 
BITO1l= e 





SEQ 0008 
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000250 


177572 
177574 
177576 
172516 


172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 


172320 


BITO3 
BITO2 
BITO1 


J1 
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BITOO 
;*BASIC Y eal TRAP VECTOR ADDRESSES 


ERRVEC= 4 
RESVEC= 


10 


TBITVEC=14 


TRTIVEC= 
BPTVEC= 


TRAPVEC=34 


TKVEC= 
TPVEC= 


60 
64 


PIRQVEC=240 
.SBTTL MEMORY MANAGEMENT DEFINITIONS 


;*KT11 VECTOR ADDRESS 


MMVEC= 


SRO= 
SR1i= 
SR2= 
SR3= 


177574 
177576 
172516 


3;TIME OUT AND OTHER ERRORS 

ee aay AND ILLEGAL INSTRUCTIONS 
33" Mi 

;; TRACE TRAP 

; ;BREAKPOINT TRAP CBPT) 

; ;INPUT/OUTPUT TRAP CIOT) **«SCOPEss 
;;POWER FAIL 

; ;EMULATOR TRAP CEMT) *#ERRORs+s 

3; “TRAP” TRAP 

3:TTY KEYBOARD VECTOR 

::TTY PRINTER VECTOR 

;;PROGRAM INTERRUPT REQUEST VECTOR 


250 
;*KT11 STATUS REGISTER ADDRESSES 
177572 


; *KERNEL i DESCRIPTOR REGISTERS 


KIPDRO= 
KIPDR1= 
KIPDR2= 
KIPDR3= 
KIPOR4= 
KIPDRS= 
KIPDR6= 
KIPDOR7= 


~ 
~N 


16 
;*KERNEL “D" PAGE DESCRIPTOR REGISTERS 


KDPDRO= 
KDPDR1i= 
KDPDR2= 
KDPOR3= 
KDPDR4= 
KDPDRS= 
KDPDR6= 
KDPDR7= 


172320 


172322 
172324 
172326 
172330 
172332 
172334 
172336 


;#KERNEL “I” PAGE ADDRESS REGISTERS 


KIPARO= 
KIPAR1= 
KIPAR2= 
KIPAR3= 
KIPAR4= 
KIPARS= 
KIPAR6= 


172340 
172342 
172344 
172346 
172350 
172352 
172354 


KIPAR7= 172356 
;*#KERNEL "D” PAGE ADDRESS REGISTERS 


KDPARO= 
KDPARi= 
KDPAR2= 
KDPAR3= 


172360 
172362 
172364 
172366 


EEE 


ee eee wwe ae w+ 
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172370 
172372 
172374 
172376 


170322 
170324 
170326 
170330 
170332 
170334 
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KDPAR4= 172370 
KDPARS= 172372 
KDPAR6= 172374 
KDPAR7= 172376 
.SBTTL UNIBUS MAP REGISTER DEFINITIONS 


;*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXX’ 
;*THE UPPER 6 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPHXX’ 


MAPLOO = 170200 
MAPHOO = 170202 
MAPLO1 = 170204 
MAPHO1 = 170206 
MAPLO2 = 170210 
MAPHO2 = 170212 
MAPLOS = 170214 
MAPHOS = 170216 
MAPLO4 = 170220 
MAPHO4 = 170222 
MAPLOS = 170224 
MAPHOS = 170226 
MAPLO6 = 170230 
MAPHO6 = 170232 
MAPLO7 = 170234 
MAPHO7 = 170236 
MAPL10 = 170240 
MAPH1O = 170242 
MAPL11 = 170244 
MAPH11 = 170246 
MAPL1i2 = 170250 
MAPHi2 = 170252 
MAPLi3 = 170254 
MAPHIS = 170255 
MAPL14 = 170260 
MAPH14 = 170262 
MAPLiS = 170264 
MAPHIS = 170266 
MAPLi6 = 170270 
MAPHi6 = 170272 
MAPL17 = 170274 
MAPH17 = 170276 
MAPL20 = 170300 
MAPH20 = 170302 
MAPL21 = 170304 
MAPH21 = 170306 
MAPL22 = 170310 
MAPH22 = 170312 
MAPL23 = 170314 
MAPH23S = 170316 
MAPL24 = 170320 
MAPH24 = 170322 
MAPL2S = 170324 
MAPH25 = 170326 
MAPL26 = 170330 
MAPH26 = 170332 
MAPL27 = 170334 


eS SRR RL ee er 
AE EE eee 
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177572 
177574 
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SEQ 0011 


170336 | 


MAPH27 = 

MAPL30 = 170340 

MAPH3O = 170342 

MAPL31 = 170344 

MAPH31 = 170346 
MAPL32 = 170350 

MAPHS2 = 170352 

MAPL33 = 170354 

MAPH33 = 170356 

MAPL34 = 170360 

MAPH3S4 = 170362 

MAPL35 = 170364 

MAPHSS = 170366 

MAPL36 = 170370 

MAPH36 = 170372 

MAPL37 = 170374 

MAPH37 = 170376 

MAPLO = MAPLOO 

MAPHO = MAPHOO 

MAPLi = MAPLO1 

MAPH1 = MAPHO1 

MAPL2 = MAPLO2 

MAPH2 = MAPHO2 

MAPL3 = MAPLO3 

MAPH3S = MAPHO3 

MAPL4 = MAPLO4 

MAPH4 = MAPHO4 

MAPLS = MAPLOS 

MAPHS = MAPHOS 

MAPL6 = MAPLO6 

MAPH6 = MAPHO6 

MAPL7 = MAPLO7 

MAPH7 = MAPHO7 

.SBTTL UBA SPECIFIC REGISTERS 

MMRO = 177572 ; MEMORY MANAGEMENT REGISTER DEFINITIONS 
MMR1 = 177574 ; 

MMR2 = 177576 ; 

MMR3 = 172516 ; 

UFDSET = 1 ; FLAG FOR UFD MODE 

BCSR = 177520 ; BOOT/DIAGNOSTIC STATUS REGISTER 

DCSR = 177730 ; DIAGNOSTIC CONTROLLER STATUS REGISTER 
DDR = 177732 ; DIAGNOSTIC DATA REISTER 

KMCR = 177734 ; KTJ11-B MEMORY CONFIGURATION REGISTER 
CCR = 177746 ; CACHE CONTOL REGISTER FOR CPU 

PCR = 177522 ; PAGE CONTROL REGISTER 

POLY = 120001 ; POLYNOMIAL USED FOR CRC ROUTINES 
SIMLGO = 170014 ; SIMULTANEOUS GO ADDRESS FOR MULTIPLE UBE'S 


-SBTTL TRAP CATCHER 
.=0 
;*#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 


;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; *LOCATION I tenes O TO CATCH IMPROPERLY LOADED VECTORS 
-*] 


- eee ee 


| M1 
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SEQ 0012 
TRAP CATCHER 
000174 900000 DISPREG: .WORD 0 ;; SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG:  .WORD 0O ;;SOFTWARE SWITCH REGISTER 
384 000200 =200 
385 000200 005037 001160 CLR $TMPO 
386 000204 000137 002530 BeSTART 
387 0002 =220 
388 000220 012737 000777 001160 #777, $TMPO 
= 000226 000137 002530 JMP BeSTART 
391 .SBTTL ACT11 HOOKS 
5 RRR RE EEE RE EEE RARER EEREEEEEEEEEEEESEEEEEEE EERE EERE EES 
;HOOKS REQUIRED BY ACT11 
000232 $SVPC=. s;SAVE PC 
000046 . #46 
000046 pe nee = ;;1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$E0P 
000052 000000 -WORD 0 ;;2)SET LOC.52 TO ZERO 
000232 . = $SVPC ;; RESTORE PC 
392 .SBTTL APT PARAMETER BLOCK 
jp EERE EEE EEE EE EEEE SESE EEE EEEEEETEESEEEEEEEEEE EE EEO EEES 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
5 EERE EEERER EEE EEE EERE REESE SEES REEDS EEE EEEEEEEEEEEEEE REDE SSE 
000232 X= ;sSAVE CURRENT LOCATION 
000024 -=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 ;3FOR APT START UP 
000044 . 244 ;sPOINT TO APT INDIRECT ADDRESS PNTR. 
000044 000232 $APTHDR ;;POINT TO APT HEADER BLOCK 
000232 =.$X  ;;RESET LOCATION COUNTER 
5 RRR RER EERE SEER ORES ESEESEE EEE OOEES SEEDERS EEEEOREEESSEESS 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
s INTERFACE SPEC. 
000232 $APTHD: 
000232 0 $HIBTS: .WORD 0 ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
000234 001200 $MBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
000236 000000 $TSTM: .WORD ;;RUN TIM OF LONGEST TEST 
000240 000000 $PASTM: .WORD -o TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
000242 000000 $UNITM: .WORD ;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
000244 000052 . WORD SETEND- $MAIL/2 ;;LENGTH MAILBOX-ETABLECWORDS ) 
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-SBTTL COMMON TAGS 


$f FPESSSSESESSEEEESESESSSSEEETESESE SERRE SEEKERS EREREEE DRESSES 
;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;#USED IN THE PROGRAM. 


-*1100 
$CMTAG 

. WORD 
$TSTNM: .BYTE 
$ERFLG: .BYTE 
$ICNT: .WORD 
$LPADR: .WORD 
$LPERR: .WORD 
$ERTTL: .WORD 
$ITEMB: .BYTE 
$ERMAX: .BYTE 
$ERRPC: .WORD 
$GDADR: .WORD 
$BDADR: .WORD 
$GDDAT: .WORD 
$BDDAT: .WORD 

. WORD 

: . WORD 

$AUTOB: .BYTE 
$INTAG: .BYTE 

. WORD 
SWR : . WORD 
DISPLAY: .WORD 
$TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
$NULL: .BYTE 
$FILLS: .BYTE 
$FILLC: .BYTE 
$TPFLG: .BYTE 
-REPT 2 
$TMPO: .WORD 
$TMPi: .WORD 
$TIMES: O 
$ESCAPE:0 
$BELL: .ASCIZ 
$QUES: .ASCII 
$CRLF: .ASCII 
$LF: -ASCIZ 


eooococoocorocooooco 


Oo 
wm 
5 


DDISP 


oo oFNSO 
w 


<207><377><3773" 


42/ 
<15> 
<i12> 


;s;START OF COMMON TAGS 


;;CONTAINS THE TEST NUMBER 
;;CONTAINS ERROR FLAG 

;:;CONTAINS SUBTEST ITERATION COUNT 
; CONTAINS SCOPE LOOP ADDRESS 

; ;CONTAINS SCOPE RETURN FOR ERRORS 
;;CONTAINS TOTAL ERRORS DETECTED 

; sCONTAINS 
;;CONTAINS MAX. 
; ;CONTAINS PC OF LAST ERROR INSTRUCTION 
;:;CONTAINS ADDRES 

;;CONTAINS ADORES 
;;CONTAINS ‘GOOD’ DATA 
;:;CONTAINS ‘BAD’ DATA 

; sRESERVED--NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
; ; INTERRUPT MODE INDICATOR 


;sADDRESS OF SWITCH REGISTER 

;;ADDRESS OF DISPLAY REGISTER 

3; TTY KBD STATUS 

;;TTY KBD BUFFER 

3;TTY PRINTER STATUS REG. ADDRESS 

3;TTY PRINTER BUFFER REG. ADDRESS 
ssCONTAINS NULL CHARACTER FOR FILLS 
;sCONTAINS @ OF FILLER CHARACTERS REQUIRED 
;sINSERT FILL CHARS. AFTER A "LINE FEED” 

3; "TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 


;:;USER DEFINED 

;;USER DEFINED 

;3MAX. NUMBER OF ITERATIONS 
;;ESCAPE ON ERROR ADDRESS 
;;CODE FOR BELL 


; QUESTION MARK 
;;CARRIAGE RETURN 
;;sLINE FEED 


FF SSSSSSSSSSSSSSSSSSS SS SSS SSSES SSS SSSSESSSSSSESSESESSSESSESSEKSEKESESESS 


-SBTTL APT MAILBOX-ETABLE 
} SSSR ESE ESE SEER ESEESSESESSESESEEEERESEEESE SEE EEEEES 


AMSGTY 
AF ATAL 
ATESTN 
APASS 

ADEVCT 
AUNIT 

AMSGAD 





;;APT MAILBOX 

; sMESSAGE TYPE CODE 
;;FATAL ERROR NUMBER 
;:TEST NUMBER 

;;PASS COUNT 

; ;sDEVICE COUNT 

33170 UNIT NUMBER 
;;MESSAGE ADDRESS 





a 


--—-—— 
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APT MAILBOX-ETABLE 


SEQ 0014 


001216 900000 $MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
001220 SE TABLE ;;APT ENVIRONMENT TABLE 
001220 060 sENV: _BYTE  AENV s sENVIRONMENT BYTE 
001221 000 $ENVM: .BYTE AENVM ;;ENVIRONMENT MODE BITS 
001222 000000 $SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
001224 000000 $USWR: .WORD AUSWR ;;USER SWITCHES 
001226 0900000 $CPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 
:* BITS 15-11=CPU TYPE 
:* 11/0401 ,11/05=02, 11/2003, 11/40=04,11/45=05 
;* 11/7006 ,PDQ=07 ,Q=10 
;* BIT 10=REAL TIME CLOCK 
;* BIT 9=FLOATING POINT _—— 
;* BIT 8=MEMORY MANAGEMENT 
001230 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
001231 000 $MTYP1: .BYTE AMTYP1 ;;MEM. TYPE, BLKOi 
;* MEM.TYPE BYTE -- CHIGH BYTE) 
;* 900 NSEC CORE=001 
;* “a 300 NSEC BIPOLAR=002 
;* 500 NSEC MOS=003 
001232 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLK#1 
;* MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “TYPE” ABOVE 
001234 000 $MAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS,M.S. BYTE 
001235 000 $MTYP2: .BYTE AMTYP2 ;;MEM. TYPE, BLKO2 
001236 000000 $MADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS, BLK#2 
001240 000 $MAMSS: .BYTE AMAMS3 ;;HIGH ADDRESS,M.S.BYTE 
001241 000 $MTYP3: .BYTE AMTYPS ;;MEM. TYPE ,BLKO3 
001242 000000 $MADRS: . AMADRS ;;MEM.LAST ADDRESS,BLKS3 
001244 000 $MAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 
001245 000 $MTYP4: .BYTE -AMTYP4 ;;MEM.TYPE,BLKO4 
001246 000000 $MADR4: .WORD 4 ;:MEM.LAST ADDRESS,BLKO4 
001250 000000 $VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR@1,BUS PRIORITY#1 
001252 000000 $VECT2: .WORD AVECT2 ;; INTERRUPT VECTOR@2BUS PRIORITY#2 
001254 000000 $BASE: .WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001256 000000 $DEVM: .WORD ADEVM ;;DEVICE MAP 
1260 000000 $COWi: .WORD ACDW1 ;;CONTROLLER DESCRIPTION WORD#1 
001262 000000 $COW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
001264 000000 $D0WO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORDSO 
001266 000000 $DDWi: .WORD ADDWi ;;DEVICE DESCRIPTOR WORD#1 
001270 000000 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORDe2 
001272 000000 $ODW3: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S3 
001274 000000 $D0W4: .WORD ADDW4 # £;;DEVICE DESCRIPTOR WORD#S4 
001276 000000 $00WS: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S 
001300 000000 $D0W6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORD#6 
001302 000000 $D0W7: .WORD ADDW7 £;;DEVICE DESCRIPTOR WORD#7 
001304 000000 $DDWS: .WORD ADDWS ;;DEVICE DESCRIPTOR WORDS 
001306 000000 $00W9: .WORD ADDWS ;;DEVICE DESCRIPTOR WORDS 
001310 000000 $00Wi0: .WORD ADDW1O0 ;;DEVICE DESCRIPTOR WORD#10 
001312 000000 $00Wi1l: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORD#11 
001314 000000 $DDWi2: .WORD ADDWi2 ;;DEVICE DESCRIPTOR WORD#12 
001316 000000 $DD0W1i3: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORD#13 
001320 000000 $00W14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
poe bam 000000 orcas WORD ADDW1S ;;DEVICE DESCRIPTOR WORD#15 
$ 
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001324 


027234 
031422 
032414 
000000 


027300 
031471 


032426 
000000 


027342 
031471 


032426 
000000 


027406 
031563 


032444 
000000 


027464 
031653 
032460 
000000 


027562 
031731 


032460 
000000 


027625 
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Ce 





SE@ 0015 


-SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE He IS PERTINENT. 
;*NOTE1: IF $ITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC). 

;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
;* EM ;;POINTS TO THE ERROR MESSAGE 


;* DH ;;POINTS TO THE DATA HEADER 
e DT ;:POINTS TO THE DATA 

;* DOF ;:POINTS TO THE DATA FORMAT 
SERRTB: 


-SBTTL ERROR DEFINITIONS 
ERROR 1 


EM1 ; TIMEOUT ON ACCESSING A MAP REGISTER 
DH1i ; TEST # ERROR PC ERROR #@ ADDRESS 
:* ; TEST, $ERRPC,ERRNUM, $BDADR 
; ERROR 2 
EM2 ; MAP REGISTER COULD NOT BE CLEARED 
DH2 $ GOOD BAD 
; TEST # ERROR PC ERROR # DATA DATA ADDRESS 
oe ; TEST, $ERRPC,ERRNUM, $GDDAT, $BDDAT , $BDADR 
; ERROR 3 
EM3 ; MAP REGISTER COULD NOT HOLD PATTERN 
DH2 ; GOOD BAD 
; TEST #@ ERROR PC ERROR @ DATA ODi.TA ADDRESS 
— ; TEST, $ERRPC,ERRNUM, $GDDAT, $BDDAT, $BDADR 
3 ERROR 4 
EM4 ; MAP REGISTER HAS NOT BEEN ADDRESSED CORRECTLY 
DH3 ; GOOD BAD 
; TEST # ERROR PC ERROR @ ADDRESS ADDRESS 
_ ; TEST, $ERRPC,ERRNUM, $GDADR, $BDADR 
: ERROR 5 
EMS ; THERE WAS NO DIFFERENCE FOUND BETWEEN HI AND LO MAP REGIST 
DH4 : HI LOW 
; TEST #@ ERROR PC ERROR @ MAP MAP 
. ; TEST, $ERRPC,ERRNUM, $GDDAT, $8DDAT 
; ERROR 6 
EM6 ; ERROR IN BITS 3-6,9-14 IN THE DCSR 
DHS ; GOOD BAD 
; TEST # ERROR PC ERROR @ DATA DATA 
a ; TEST, $ERRPC,ERRNUM, $GDDAT, $BDDAT 
; ERROR 7 
EM7 ; DCSR DID RESPOND PROPERLY ON RESET 
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ERROR DEFINITIONS 
440 001406 
441 
442 001410 
443 001412 


031731 DHS 
032460 DT4 
000000 0 

; ERROR 10 
027674 EM10 
031422 DH1 
032414 DT1 
000000 0 

; ERROR 11 
027746 EM11 
031471 DH2 
032426 OT2 
000000 0 

i ERROR 12 
030020 EM12 
031422 DH1 
032414 DT1i 
000000 0 

; ERROR 13 
030072 EM13 
032013 DH13 
032460 DT4 
000000 0 

: ERROR 14 
030141 EM14 
031731 DHS 
032460 DT4 
000000 0 

; ERROR 15 
030171 EM15 
032013 ss DH13 
032460 DT4 
000000 0 

: ERROR 16 
030220 EM16 
031731 DHS 
032460 DT4 
000000 0 

; ERROR 17 
030302 EM17 
032066 DH16 
032474 ts 

; ERROR 20 


D2 


Page 10-1 


+ +. a 


SEQ 0016 


GOOD BAD 
TEST # ERROR PC ERROR # DATA DATA 
TEST, $ERRPC ,ERRNUM, $GDDAT , $BDDAT 


TIMEOUT HAS OCCURED ON ACCESS TO THE DCSR 
TEST # ERROR PC ERROR # ADDRESS 
TEST, $ERRPC ,ERRNUM, $BDADR 


KMCR BITS 0-5,8 DID NOT GET SET CORRECTLY 
GOOD BAD 


TEST # ERROR PC ERROR # DATA DATA ADDRESS 
TEST, $ERRPC ,ERRNUM, $GDDAT , $BDDAT, $BDADR 


TIMEOUT HAS OCCURED ON we TO THE KMCR 
TEST # ERROR PC ERROR # ADDRESS 
TEST, $ERRPC .ERRNUM, $BDADR 


ERROR IN DATA PATH 
TEST # ERROR PC ERROR # PATTERN DDR 
TEST, $ERRPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN DATA OUT 


GOOD BAD 
TEST # ERROR PC ERROR # DATA DATA 
TEST, $ERRPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN DATA IN 
TEST # ERROR PC ERROR # PATTERN DDR 
TEST, $ERRPC,ERRNUM, $GDDAT , $BDDAT 


DOR NOT ZERO WHEN DCSR SELECTS UNIBUS LINES 
GOOD BAD 


TEST # ERROR PC ERROR @ DATA DATA 
TEST, SERRPC,ERRNUM, $GDDAT , $BDDAT 


ERROR IN SETTING DCSR<7> 
TEST # ERROR PC ERROR @ 
TEST, $ERRPC ,ERRNUM 


ll LT 
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030335 
032125 
032504 
000000 


030534 
032205 


032530 
000000 


030636 
031731 


032460 
000000 


030721 
032316 
032550 
000000 


030756 
031422 
032564 
000000 


031017 


MACRO YOS.02 Friday 29-Mar-85 12:53 Page 10-2 


0 

ERROR 21 
EM21 
DH16 
DT16 

0 

ERROR 22 
EM22 
DH16 
DT16 

0 

ERROR 23 


EM23 
DH23 


— 
ERROR 24 
EM24 
DH16 
0T16 


0 
ERROR 25 


0 
ERROR 26 


EM26 
DHS 


sy 
ERROR 27 
EM27 
DH27 
DT27 

0 

ERROR 30 


0 
ERROR 31 
EM31 





tae Se a ae me 


ERROR IN UNIQUE ADDRESSING OF REGISTERS 
TEST # ERROR PC ERROR # KMCR PAIR FAILED 


TEST, $ERRPC,ERRNUM,KMCR, $BDADR 


REG. PAIR 31. PERFORMS RELOCATION 
TEST # ERROR PC ERROR # 
TEST, $ERRPC ,ERRNUM 


NXM CONDITION COULDN'T BE CREATED THRU ALU 
TEST # ERROR PC ERROR # 
TEST, SERRPC ,ERRNUM 


ALU ERROR 


GOOD BAD 
TEST # ERROR PC ERROR # DATA DATA ADDRESS 
TEST, SERRPC,ERRNUM, $GDDAT , $BDDAT , KIPARG, $BDADR 


CPU CACHE ERROR 
TEST # ERROR PC ERROR ¢ 
TEST, $ERRPC ,ERRNUM 


KMCR<4-0> DOESN’T DISABLE MAIN MEMORY 
TEST # ERROR PC ERROR @ 
TEST, $ERRPC , ERRNUM 


KMCR DOES NOT REFLECT EXPECTED STATUS OF THE CACHE/ 
GOOD BAD 


TEST # ERROR PC ERROR @ DATA DATA 
TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT 


ERROR IN CACHE TAG REGISTERS 
TEST # ERROR PC ERROR #@ ADDRESS 
TEST, $ERRPC, ERRNUM, MAPHO1 , MAPLO1 


ERROR IN THE DMA CACHE DATA RAMS 
TEST # ERROR PC ERROR @ ADDRESS 
TEST, $ERRPC ,ERRNUM,MAPLOO 


ERROR IN THE M9312 BOOT ROM SECTION 








- a a ee ——aa eee ee 
7 
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ERROR DEFINITIONS 


SEQ CO18 «CS 


554 001626 032066 DH1i6 ; TEST # ERROR PC ERROR @ 

555 001630 032474 DT16 ; TEST, $ERRPC,ERRNUM 

556 001632 0 . 

Fad ; ERROR 32 

559 001634 031063 EM32 ; ERROR IN ARBITRATION LOGIC THRU UBE 

560 001636 032066 DHi6 ; TEST # ERROR PC ERROR @ 

561 001640 032474 DT16 ; TEST, $ERRPC,ERRNUM 

562 001642 0 

Fry ; ERROR 33 

565 001644 031130 EM33 ; ERROR TRYING TO DO DMA CYCLES THRU UBE 
001646 032066 DH16 ; TEST # ERROR PC ERROR #@ 

567 001650 032474 DT16 ; TEST, $ERRPC,ERRNUM 

568 001652 9 

+4 : ERROR 34 

571 001654 031204 EM34 ; ERROR IN THE UNIBUS MEMORY TEST 

572 001656 032 DH16 ; TEST # ERROR PC ERROR ¢ 

573 001660 032474 DT16 ; TEST, $ERRPC,ERRNUM 

574 001662 0 

da : ERROR 35 

577 001664 031244 EM35 ; UNEXPECTED TIMEOUT HAS OCCURED 

578 001666 032066 DH16 ; TEST # ERROR PC ERROR #¢ 

579 001670 032520 OT21 ; TEST, $BDADR,ERRNUM 

580 001672 0 

a ; ERROR 36 

2 

583 001674 031303 EM36 ; UNIBUS TIMEOUT DID NOT OCCUR 

584 001676 032066 DH1i6 ; TEST # ERROR PC ERROR ¢ 

585 001700 032474 DT16 ; TEST, $ERRPC,ERRNUM 

586 001702 0 

587 ; ERROR 37 

588 

589 001704 031351 EM37 ; DCSR<3> DIDN’T DISABLE UBA ROM'S 

590 001706 032066 DH1i6 ; TEST @ ERROR PC ERROR ¢ 

591 001710 032474 DT1i6 ; TEST, $ERRPC,ERRNUM 

592 001712 0 

593 

594 .SBTTL GLOBAL VARIABLES 

595 001714 000000 ERRNUM: .WORD 0 ; ERROR NUMBER FOR REPORT 

596 001716 000000 TEST: .WORD 0O ; TEST NUMBER FOR REPORT 

597 001720 000000 PMIS: -WORD 0O ; PMI MEMORY SIZE 

598 001722 000000 UBECT -WORD O ; NUMBER OF UBE'S 

599 001724 000000 BELINT: .WORD 0 ; UBE #1 INTERRUPT FLAG 

600 001726 000000 BE2INT: .WORD 0 ; UBE #2 INTERRUPT FLAG 

601 001730 000000 TOUT: .WORD 0O ; TIMEOUT FLAG 
001732 172100 MCSR: -WORD 172100 ; POINTER TO MEMORY CSR 

603 001734 WRIBUF: .BLKW 20 ; WRITE BUFFER 

604 001774 000377 007417 031463 PTRNI6: .WORD 377,7417,31463,52525,125252 ; 16-BIT BINARY DIVIDE 
002002 052525 125252 

605 002006 145454 104210 155555 -WORD 145454,104219,155555,021042 
002014 021042 

606 002016 053346 146314 000000 -WORD 053346,146314,0 

607 002024 000017 000014 000025 PTRN6: WORD 17,14,25,52 ; 6-BIT BINARY DIVIDE 
002032 000052 
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GLOBAL VARIABLES 


SEQ 0019 


608 002034 000026 000042 000010 -WORDB 26,42,10,55,77,70,7,0 
002042 000055 000077 000070 
ons 002050 000007 000000 
610 .SBTTL CACHE RAM IMAGE TABLE 
612 
; 
613 ; THE FOLLOWING BLOCK OF DATA WILL BE USED IN THE CACHE RAM BIT TEST 
614 ; THE EXACT ADDRESSES WILL BE FIGURED OUT BY THE PROGRAM DEPENDING 
615 ; ON THE LOCATION OF THIS TABLE. 
si ; 
ey 002054 CTBLE: .BLKW 47 ; THE LARGEST # OF LOCATIONS NEEDED 
620 002172 000000 OBADR: .WORD O ; FIRST ADDRESS OF A FIELD IN TABLE 
621 002174 000000 -.WORD 0O ; FIRST ADDRESS OF B FIELD IN TABLE 
622 002176 000000 -WORD 0O ; FIRST ADDRESS OF C FIELD IN TABLE 
= 002200 000000 .WORD 0O ; FIRST ADNORESS OF D FIELD IN TABLE 
= SBTTL UNIBUS EXERCISER REGISTER TABLES 
627 : 
628 ; UBE #1 
629 3 
630 
631 002202 9000000 BE1DB: O ; UBE #1 DATA REGISTER 
632 002204 000000 BEICC: Oo ; UBE #1 CYCLE COUNT REGISTER 
633 002206 0900000 BEI1BA: O ; UBE #1 ADDRESS REGISTER 
634 002210 000000 BEICRi: O ; UBE #1 CONTROL REGISTER 1 
635 002212 000000 BEICLR: O ; UBE #1 CLEAR ERROR REGISTER ADDRESS 
636 002214 000000 BEICRe: O ; UBE #1 CONTROL REGISTER 2 
637 002216 000000 BEIVEC: O ; UBE #1 VECTOR PC 
= 002220 000000 BEIPSW: O ; UBE #1 VECTOR PSW 
640 ; 
641 ; UBE #2 
642 ; 
643 
644 002222 000000 BE2DB 0 ; UBE #2 DATA REGISTER 
645 002224 000000 BE2CC: O ; UBE #2 CYCLE COUNT REGISTER 
646 002226 000000 BE2BA: O ; UBE #2 ADDRESS REGISTER 
647 002230 000000 BE2CR1I: O ; UBE #2 CONTROL REGISTER 1 
648 002232 000000 BE2CLR: O ; UBE #2 CLEAR ERROR REGISTER ADDRESS 
649 002234 000000 BE2CR2: O ; UBE #2 CONTROL REGISTER 2 
650 002236 000000 BE2VEC: 0 ; UBE #2 VECTOR PC 
651 002240 000000 BE2PSW: O ; UBE #2 VECTOR PSW 
rr .SBTTL SUBROUTINE - DIAGNOSTIC _DATA. OUT SUBROUTINE 
654 ;* INPUTS: PATTERN TO BE STORED IN DDR AND THEN WRITTEN TO MEMORY $GDDAT 
rr ; TEST_LOCATION TO BE WRITTEN TO (€16 OR 22 BITS) CR1) 
657 - ON RETURN FROM SUBROUTINE TEST_LOCATION SHOULD HAVE THE SAME DATA 
658 ;* AS DDR AND THE SAME AS PATTERN 
659 ;* THE PROGRAM HAS TO BE RUNNING IN DIAGNOSTIC MODE WITH DIAGNOSTIC 
a ;* NPR REGISTER SELECTED 
662 ; BGNROUTINE 
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SE 
SUBROUTINE - DIAGNOSTIC_DATA_OUT SUBROUTINE o Saas 

663 ; 

664 : MOVE PATTERN TO DDR 

665 : DO EXTERNAL WRITE FROM TEST_LOCATION 

666 ; RETURN 

667 ; | 
668 ; ENDROUTINE 

669 ; 

671 ee ae en ee ee 
672 002242 013737 001124 177732 ODDOUT: MOV $GDDAT ,DDR ; STORE PATTERN IN DOR 

673 002250 011111 i$: MOV CR1),CR1) ; EXTENAL READ TO PROVIDE ADDRESS 
674 002252 000207 RTS PC 

675 

676 

ek .SBTTL SUBROUTINE - DIAGNOSTIC_DATA_IN SUBROUITNE 

679 ;* INPUTS: PATTERN TO BE WRITTEN TO MEMORY AND THEN TO DDR $GDDAT 

oy i* TEST_LOCATION TO READ FROM (16 OR 22 BITS) CR1) 

682 an ON RETURN FROM SUBROUTINE DDR SHOULD HAVE THE SAME DATA AS 

683 ;* SPECIFIED MEMORY LOCATION AND THE SAME AS THE PATTERN 

684 ;* THE PROGRAM HAS TO BE RUNNING IN DIAGNOSTIC MODE WITH DIAGNOSTIC 

— ;* NPR REGISTER SELECTED. 

687 ; BGNROUTINE 

688 ; 

689 ; LET DCSR<O> = #1 

690 ; DO EXTERNAL WRITE FROM TEST_LOCATION 

691 ; RETURN 

692 ; 

692 ; ENDROUTINE 

694 : 
os Be en nn nn een nnn +--+ + - = ----- 
697 002254 052737 000001 177730 ODDIN: BIS #BITOO,DCSR ; SET GO BIT 
698 002262 011111 2$: MOV CR1),CR1) ; PROVIDE ADDRESS FOR DMA 

699 002264 000207 3$: RTS PC 

700 

701 

702 .SBTTL SUBROUTINE - TIMEOQUT_ROUTINE 

708 ;* THIS ROUTINE IS USED TO FLAG AN UNEXPECTED TIMEOUT. 

04 : 

hn ; BGNROUTINE 

707 ; STORE ADDRESS THAT CAUSED TIMEOUT 

708 ; ERROR 

709 : RETURN 

710 ; 

711 ; ENDROUTINE 

712 ; 

tia at ee ee ee 
715 002266 011637 001122 TIMOUT: MOV (SP), $BDADR ; STORE ADDRESS THAT TIMED OUT 
716 002272 104035 ERROR +35 ; UNEXPECTED TIMEOUT 

717 002274 000002 RTI 

718 

719 


. a nnEEEneeeneenene 


ES ES | 
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SEQ 0021 


.SBTTL SUBROUTINE - MAP_PROGRAM_AREA 

;* THIS ROUTINE MAPS THE PROGRAM AREA TO THE FIRST 32K 

; 

; BGNROUTINE 

; MAP PROGRAM AREA THRU KIPAR'S TO FIRST 32 K 

:' NO CACHE BYPASS 

:; RETURN 

; 

; ENDROUTINE 

; 
002276 MAPPR 
002276 01004 MOV RO, -(SP) ;;PUSH RO ON STACK 
002300 010146 MOV k1,-CSP) ;;PUSH R1 ON STACK 
002302 010246 MOV R2,-(SP) ;;PUSH R2 ON STACK 
002304 012700 172300 MOV #172300,RO ; RO POINTS TO FIRST KIPOR 
002310 012701 000010 MOV #8. ,R1 ; DO FOR ALL 8 REGISTERS 
002314 012720 077406 1s: MOV #77406, (RO)+ ; . 4K PAGE, CACHE ON, READ/WRITE 
002320 077103 SOB Ri,1$ ; . CONTINUE TILL DONE 
002322 012700 172340 MOV #172340,RO ; RO POINTS TO FIRST KIPAR 
002326 012701 000006 MOV #6. ,R1 ; DO FOR ALL 8 REGISTERS 
002332 012702 000000 MOV #0,R2 ; START WITH ADDRESS 0 
002336 010220 2$: MOV R2,(RO)+ ; . LOAD WITH ADDRESS 
002340 062702 000200 ADD #200, R2 ; . NEXT 4K 
002344 077104 SOB R1,2$ ; . CONTINUE TILL DONE 
002346 005020 CLR (RO)+ ; CLEAR KIPAR6 
002350 012710 177600 MOV #177600, (RC) ; I/0 PAGE TO KIPAR7 
002354 012602 MOV (SP)+,R2 ;:POP STACK INTO R2 
002356 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
002360 012600 MOV (SP)+,RO ;;POP STACK INTO RO 
002362 000207 RTS PC 

.SBTTL SUBROUTINE - MEMORY SIZE 

;* THIS ROUTINE SIZES MAIN (PMI) MEMORY IN 4K WORDS. 

; BGNROUTINE 

; 

: REMAP TIMEOUT VECTOR AND PROGRAM AREA 

; ENABLE MEMORY MANAGEMENT UNIT 

; DO UNTIL TIMEOUT OR ALL 2M CHECKED 

; CHECK LOCATION 0 IN EACH 4K PAGE THRU KIPARG 

; ENDDO 

; ENDROUTINE 

: 
002364 013702 000004 MEMSIZ: MOV ERRVEC,R2 ; SAVE TIME OUT VECTOR 
002370 012737 002444 000004 MOV #3$,ERRVEC ; POINT NEW TO PROGRAM 
002376 012737 000340 000006 MOV #340, ERRVEC+2 ; AT PRIORITY 7 





| SIZE MEMORY IN 4K WORDS 





' 


| KTJ11-B DIAGNOSTIC 
SUBROUTINE - MEMORY SIZE 


012737 


013701 
042701 
012702 
162702 
077103 
000207 


- ee ell 


Je 
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000200 


14 
170000 


000040 


000004 


177734 
000040 


007600 
000200 


002202 
000010 





172354 


000200 172354 
0000 


172354 


SEQ 0022 


FIRST 4K 
GO TRY TO ACCESS 
NEXT 4K 


. ACCESS THRU KIPAR6 
. LAST PAGE? 

. IF NOT, BRANCH 

IF 2M PRESENT, ONLY 21ST MASKED 
BRANCH 

RESTORE STACK 


; RESTORE TIMEOUT VECTOR 
RETURN 


SAVE KMCR 

LEAVE ONLY # OF PAGES 
START W/O oe MEMORY 
. SUBTRACT 4K 

. FOR ALL PAGES PRESENT 


UBE’S 


;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

; POINT RO TO UBE REGISTERS 

; SET UP A LOGP COUNTER 

; CLEAR OUT A REGISTER 

; HAVE WE INITIALIZED THE UBE ? 
;;POP STACK INTO R1 

;;POP STACK INTO RO 


MOV #200 , KIPAR6 
BR 2$ 
1$: ADD #200 , KIPAR6 
2$: TST #140000 
CMP #170000 , KIPAR6 
BNE i$ 
MOV #40 ,R1 
BR $ 
3$: TST CSP )+ 
TST (SP )+ 
4$: MOV R2,ERRVEC 
RTS PC 
.SBTTL SUBROUTINE - SIZE UNIBUS MEMORY FROM KMCR 
;* ON RETURN FROM THIS SUBROUTINE R2 WOULD HAVE PAR VALUE 
;* OF UNIBUS MEMORY 
3 
UMSIZ: MOV KMCR ,R1 ; 
i$: BIC #BITOS,R1i $ 
MOV #7600 ,R2 ; 
100$: SUB #200 ,R2 ; 
SOB R1,100$ $ 
RTS PC 
.-SBTTL SUBROUTINE - INITIALIZE THE UBE'S 
;* THIS ROUTINE IS USED TO INITIALIZE THE 
; 
; BGNROUTINE 
; SAVE RO,R1 
: LET RO := FIRST UBE ADDRESS 
: DO FOR (RO) := BEIDB TO BEICRI 
: . LET CRO) := O 
; ENDDO 
: RESTORE R1,RO 
: RETURN 
; ENDROUTINE 
: 
avon edbeedenedndaswsesedacetves 
IUBE : 
MOV R1i,-CSP) 
MOV BE1DB,RO 
MOV #10,R1 
5$: CLR CRO)+ 
SOB R1,5$ 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTS PC 


ee gre Sr 
TE a A EEE A ee 


nn 
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012706 
005026 


012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 


013746 
012737 
012737 
012737 
022777 
001012 


000403 


: a ee 
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THE UBE’S 


002616 
000040 


177777 
000100 


177777 


001100 
001140 
001100 
023360 


002752 
002760 


000004 
003026 
177570 
177570 
177777 


000052 


002622 
000052 


002624 


002616 
002620 


000026 
023212 


001115 
001106 
001110 


000004 
001140 
001142 
176116 


Ke 


; STARTING POINT OF PROGRAM 


;; LCP/ORION ev savsO SAVE EMTULATOR AND 


START: 
EMTSAV: TST 
BNE 
BIT 
BEQ 
MOV 
BIT 
BEQ 
MOV 
1$: EMT 
CLR 
MOV 
MOV 
BR 
SAV30: .WORD 
SAV32: .WORD 
UFDFLG: .WORD 
UQUIET: .WORD 
VMK 


MKOR 
98175, 9052 
VMKOR 
}- 1 ] UF DFLG 
#- 1 a UQUIET 
42 


42(RO) 
30,SAV30 
32,SAV32 
VMKOR 


PRIORITY 

3; FIRST TIME THROUGH ? 

;; BRANCH IF BEEN HERE ALREADY 
;; ARE WE IN UFD MODE ? 

;; LEAVE IF NOT 

3; SET UFD FLAG 

;; ARE WE IN QUIET MODE ? 

si BR IF NOT 

3; SET QUIET MODE 

;; GET ADDRESS OF XXDP DCA TABLE 
3; CLR XXDP+ “DRSERR” 

;; SAVE EMULATOR ADDRESS 

;; SAVE EMULATOR PRIORITY LEVEL 
;; GET AROUND TAG AREA 

;3 PUT EMULATOR INFO HERE 

;; PUT PRIORITY LOCATION 

;; USER FRIENDLY MODE FLAG 

;; UFD QUIET MODE FLAG 


HERE 


saaeesasseaasessatssesssssssasesesessanessenessssessenessessseesssees 
-SBTTL INITIALIZE THE COMMON T 
;;CLEAR THE COMMON TAGS ($CMTAG) AREA 


MOV 
CLR 


#$CMTAG,R6 
CR6)+ 


oS »R6 ; ;DONE? 


#STACK , SP 


MOV 

betaine 2 A FEW VECTORS 

#$SCOPE ,@#IOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
#340, A@IOTVEC<2 ;;LEVEL 7 
#$ERROR,@PEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
$340, ,.Q@EMTVEC+2 ;;LEVEL 7 
#@$TRAP ,ASTRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340 ,ASTRAPVEC+2;LEVEL 7 
#$PWRON,@@PWRVEC ;;POWER FAILURE VECTOR 
#340 ,@@PWRVEC+2 ;;LEVEL 7 


$ENDCT, $EOPCT 
$TIMES 
$ESCAPE 

#1, SERMAX 
#.,$LPADR 
#.,$LPERR 


AGS 


;;FIRST LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 


;;LO0P BACK IF NO 
;;SETUP THE STACK POINTER 


;:;SETUP END-OF-PROGRAM COUNTER 

; ; INITIALIZE NUMBER OF ITERATIONS 

;;CLEAR THE ESCAPE ON ERROR ADDRESS 

;;ALLOW ONE ERROR PER TEST 

; ;INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 


3 
;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


; sEQUAL WA A "-1", 
QPERRVEC, a 





#30000$, AvERR 
#DSWR, SWR 
#DDISP , DISPLAY 
#-] 2 aSWR 
30002$ 


30001$ 


SETUP FOR A SOFTWARE SWITCH REGISTER. 


;:;SAVE ERROR VECTOR 

;;SET UP ERROR VECTOR 
;:;SETUP FOR A HARDWARE SWICH REGISTER 
;:AND A HARDWARE DISPLAY REGISTER 
;;TRY TO REFERENCE HARDWARE SWR 
; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWR IS NOT = -1 
; ;BRANCH IF NO TIMEOUT 


rrr mm 


KTJ11-B8 DIAGNOSTIC 
INITIALIZE THE 


. — ee ee 
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COMMON TAGS 


012716 
000002 


001403 
012737 


005737 


112737 
000420 
012737 


012737 
005037 


00 
013737 
012706 


003034 


000176 
000174 


000004 
001206 
000200 
001222 
002624 


000001 


177777 
023340 
003200 
000042 
001220 
001140 


000001 


001140 
001142 


001221 
001140 


001220 


000042 


000001 
000176 


001134 


000004 


172516 


001720 


Le 


SEQ 0024 


;;SET UP FOR TRAP RETURN 
;;POINT TO SOFTWARE SWR 


;;RESTORE ERROR VECTOR 
;;CLEAR PASS COUNT 

;;TEST USER SIZE UNDER APT 
;;YES,USE NON-APT SWITCH 
;3NO,USE APT SWITCH REGISTER 


; ARE WE UNDER UFD QUIET MODE ? 

; YES, THEN SKIP THE DIAGNOSTIC TITLE PRINTOUT 
; 

i 


APT? 
IF YES, SKIP PRINTOUT 


FIRST PASS 
;3FIRST TIME? 

; ;BRANCH IF NO 

; sACT-117 

i  e IF YES 

; TYPE ASCIZ STRING 


;;ARE WE RUNNING UNDER XXDP/ACT? 

; ;BRANCH IF YES 

;;ARE WE RUNNING UNDER APT? 
;;BRANCH IF YES 

; : SOFTWARE SWITCH REG SELECTED? 
;;BRANCH IF NO 

;;GET SOFT-SWR SETTINGS 


;sSET AUTO-MODE INDICATOR 
;;GET OVER THE ASCIZ 


<CRLF >* COKTACO KTJ11-B DIAGNOSTIC *#<CRLF> 


; SETUP TIMEOUT VECTOR FOR UNEXPECTED TIMEOUT 
; TEST @ FOR ERROR REPORTING 


; REMAP PROGRAM AREA ais 
3 ; ENABLE RELOCATION AND 22BITS 

; ENABLE MMU 

GET HIGHEST 128K OF MEMORY 

DISABLE MMU 


; 
; 
; 
; STORE HIGHEST PAGE 


30000$ : Ho #30001$,(SP) 
30001$: MOV #SWREG , SWR 
MOV #DISPREG , DISPLAY 
30002$: MOV CSP )+, @®ERRVEC 
CLR $PASS 
BITB #APTSIZE, $ENVM 
BEQ 30003$ 
MOV #$SWREG , SWR 
30003$: 
TST UQUIET 
BNE 1$ 
CMPB #APTENV, SENV 
BEQ 1$ 
-SBTTL TYPE PROGRAM NAME 
;;1TYPE THE NAME OF THE PROGRAM IF 
INC #-1 
BNE 30004 $ 
CMP @$ENDAD , 242 
BEQ 30004 $ 
TYPE , 30005$ 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST a#42 
BNE 30006 $ 
CMPB SENV, #1 
BEQ 30006 $ 
CMP SWR , #@SWREG 
BNE 30007 $ 
GTSWR 
BR 30007 $ 
30006$: MOVB #1, $AUTOB 
30007 $ 
30004 $ 
Orga -ASCIZ 
1$: MOV @TIMOUT , 804 
og #340 , B06 
CLR TEST 
; SIZE MEMORY IN 4K PAGES 
JSR PC ,MAPPR 
BIS #BITOS!BIT04, MMR 
INC MMRO 
JSR PC ,MEMSIZ 
CLR MMRO 
CLR MMR3 
MOV KIPAR6 ,PMIS 
RESTART: 
MOV #1100, SP 


; SET UP THE STACK POINTER 


— ee 1s 


’ 
LLL LLL LLL LBBB LBL A OA 


| 


854 
855 


003324 


888 003340 


906 
907 003414 





KTJ11-8 DIAGNOSTIC 
TEST - UNIBUS MAP REGISTER TESTS 


000004 


013705 
012737 
012737 


042737 


-_—  ——— ee 


000004 
003424 
000340 


000040 


000040 


000004 


172516 


172516 


172516 


Me 
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-SBTTL TEST - UNIBUS MAP REGISTER TESTS 


;* THIS TEST WILL TRY TO ACCESS ALL THE MAP 
;* REGISTERS WITH BOTH MAPPING ENABLED AND 


;* DISABLED 


;*T 


TST1: 


BGNTST 


LET 4:= ADDRESS OF ERROR ROUTINE 


LET 6:= PRIORITY OF 7 


DO FOR BOTH UNIBUS MAP ENABLED AND DISABLED 


DO FOR ADDRESS 
. READ ADDRESS 


ENDDO 
EXIT TEST 


:= 170200 TO 170376 


IF ADDRESS CAN'T BE READ THEN 
_ THRU VECTOR 4 


ERROR: 
REPORT WHICH MAP REGISTER TIMED OUT 


ENDTST 


EST 1 


SCOPE 


FSSA SSS SSS SESESEERSEESE SEEKS ESESEEEEEEEEEERESEEEEEEEEEEEDSE 
ES 


UNIBUS MAP REGISTER RESPONSE T 
REE REE EEE EEE ESSERE EET EERE EEEEEEEEEEOEEESEEEEESEEEEEEEEES EES 


; 
; SET UP MEMORY TIMEOUT VECTOR TO ERROR ROUTINE 


MOV © 804,R5 
MOV #20$ , 304 
MOV #340 , B66 
; 
; DISABLE UNIBUS MAPPING 
; 
BIC #BITS ,BPSRS 
; 
; TRY TO ACCESS 
: 
CLR Ri 
S$: MOV #MAPLOO,RO 
10$: TST CRO)+ 
12$: CMP RO, #170400 
BNE 10$ 
TST R1 
BEQ 15$ 
BIC #BITS,SR3 
MOV RS, a04 
BR TST2 
INC Ri 
BIS #BITS,SR3 


; SAVE THE TIMEOUT VECTOR 
; SET UP TIMEOUT VECTOR TO ERROR ROUTINE 
; SET UP TIMEOUT PRIORITY 


; DISABLE UNIBUS MAPPING 


ALL THE UNIBUS MAP REGISTERS 








: ee LOOP COUNT 

; RO POINTS TO MAP REGISTER #0 

; . . TRY TO READ MAP REGISTER 

; . . HAVE WE READ ALL THE ae REGISTERS 
ae T ONE 

: 

; 

; 


. TURN OFF UNIBUS MAPPING 
; RESTORE THE TIMEOUT VECTOR 


. GO TO NEXT TEST 


; . INCREMENT LOOP COUNT 
; . TURN ON UNIBUS MAP 





Ne 
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Ti UNIBUS MAP REGISTER RESPONSE TEST 

joe 003422 000755 BR S$ ; . GO TRY TO ACCESS THE REGISTERS 
; 

oa ; MAP REGISTER TIMEOUT ROUTINE 
; 

912 003424 005726 20%: TST (SP )-+ ; CLEAN UP THE STACK 

913 003426 005726 TST (SP )+ : 

914 003430 162700 000002 SUB ; GET ADDRESS THAT TIMED OUT 

915 003434 010037 001122 MOV RO, $6DADR ; PUT IT IN $BDADR 

916 003440 062700 ADD , ; GET NEXT ADDRESS 

917 003444 104001 ERROR +1 ; REPORT THAT ACCESS HAS TIMED OUT 

os 003446 000746 BR 12$ ; 


KTJ11-8 DIAGNOSTIC 
TEST - UNIBUS MAP REGISTER BIT PATTERN 


012700 





BS 
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SEQ@ 0027 


3* THIS TEST IS DESIGNED TO DETECT ANY STUCK 
;# AT BiTS OR SHORTED BITS IN THE UNIBUS MAP 


.SBTTL TEST - UNIBUS MAP REGISTER BIT PATTERN 


3* REGISTERS 
BGNTST 


CLEAR ALL MAP REGISTERS 
DO FOR ADDRESS := 170200 TO 170376 


CHECK LOW MAPPING REGISTERS 


READ ADDRESS 


IF ADDRESS NE O THE 
. ERROR MAP REGI 


N 
STER DID NOT CLEAR 


ENDIF 
DO FOR PATTERNS :* 377,7417,1463,52525,125252 


WRITE PATTERN INTO ADDRESS 
READ PATTERN 
IF CONTEN.S OF ADDRESS NE PATTERN THEN 


ERROR IN BITS OF ADDRESS 


ENDIF 
ENDDO 
. LET ADDRESS := ADDRESS * 2 
* 
* CHECK HIGH MAPPING REGISTERS 
oo 


ADDRESS 
IF ADDRESS NE O THEN 
. ERROR MAP REGISTER DID NOT CLEAR 
DO FOR PATTERNS Tn 17,14,25,52 
WRITE PATTERN INTO ADDRESS 


READ PATTERN 
IF CONTENTS OF ADDRESS NE PATTERN THEN 


ERROR IN BITS OF ADDRESS 


ENDIF 


ff ESSSEESSSAESSEEESSSEAEE SESS ESSE SSSRSRESSASSERRSRERESERAESEEETE 
UNIBUS MAP REGISTER BIT PATTERN TEST 
§ PRA SREAAAE RARER EERE RESEAREEEERESEAE SESE SERRE SERRE ETESE TERE 


;*TEST 2 


TSTe: 


SCOPE 


; 
; CLEAR ALL MAP REGISTERS 


5$: 


#MAPLOO,RO 
CRO)+ 

RO, #170400 
5$ 








; GET ADDRESS TO 1ST MAP REGISTER 

; . CLEAR THE MAP REGISTER 

; . HAVE WE CLEARED ALL THE MAP REGISTERS ? 
; . NO THEN GO CLEAR THE NEXT ONE 





KTJ11-8 
T2 


TEN 


TEN 


— + - ee ee Oe 


DIAGNOSTIC 
UNIBUS MAP REGISTER BIT PATTERN TEST 
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170200 


001126 
000000 
001122 
001774 


000001 


001126 
001124 
001122 


000002 
170400 


001124 


001124 


ee -_- oo 


Cs 


SEQ 0028 CS 


i 
; DO A READ,WRITE,READ ON THE REGISTERS TO 
; VERIFY ALL THE BITS OF THE LOW MAP REGISTERS 


MOV #MAPLOO,RO ; GET ADDRESS TO 1ST MAP REGISTER 
10$: TST CRO) ; . IS THE MAP REGISTER CLEAR ? 
BEQ 15$ ; . YES, THEN GO CHECK THE BITS 
MOV CRO), —" ; . NO, THEN GET THE BAD DATA 
MOV #0, $GDDAT i GET THE GOOD DATA 
MOV RO, $BDADR ; GET THE ADDRESS THAT DID NOT CLEAR 
ERROR +2 ; . ERROR - REGISTER DID NOT CLEAR 
15$: MOV @PTRN16,R1 i. ~ POINTER TO PATTERN TABLE 
20%: MOV CR1), CRO) i MOVE PATTERN TO MAP REGISTER 
MOV (R1),Re2 ; . MOVE COPY OF PATTERN TO R2 
BIC #BITO,R2 ; . CLEAR BITO OF THE PATTERN 
CMP R2,(RO) ; . . DID PATTERN GET WRITTEN CORRECTLY ? 
BEQ 25$ ; . YES, THEN GO SEE IF ALL PATTERNS HAVE BEEN WRIT 
MOV CRO), $BDDAT ; . NO,GET THE BAD DATA 
MOV R2, $GDDAT ; GET THE GOOD DATA 
MOV RO, $BDADR ; GET THE ADDRESS OF DATA FAULT 
ERROR +3 ; . . ERROR - REGISTER COULD NOT HOLD PATTERN 
25$: TST CR1)-+ ; . . ARE WE THROUGH THE TABLE ? 
BNE 20$ ; . NO THEN GO WRITE NEXT PATTERN 


: 
; DO A READ,WRITE,READ ON THE REGISTERS TO 
; VERIFY ALL THE BITS OF THE HIGH MAP REGISTERS 


ADD #2,RO ; . POINT TO THE HIGH MAPPING REGISTER 
30$: TST CRO) ; . IS THE MAP REGISTER CLEAR ? 
BEQ 35% ; . YES, THEN GO CHECK THE BITS 
MOV gy En pal ; . NO, THEN GET THE BAD DATA 
MOV #0, $GDDAT ; GET THE GOOD DATA 
MOV RO. $BDADR : GET THE ADDRESS THAT DID NOT CLEAR 
ERROR +2 ; ERROR - REGISTER DID NOT CLEAR 
35$: MOV OPTRNG ,R1 ; . GET POINTER TO PATTERN TABLE 
405: MOV (R1), CRO) ; . MOVE PATTERN TO MAP REGISTER 
MOV (R1),R2 ; . . MOVE COPY OF THE PATTERN TO R2 
BIC #177700 ,R2 ; . MASK OUT THE UPPER 10 BITS 
CMP R2, (CRO) ; . . DID PATTERN GET WRITTEN CORRECTLY ? 
BEQ 45$ ; - YES, THEN GO SEE IF ALL PATTERNS HAVE BEEN WRIT 
MOV CRO), $BDDAT : . NO,GET THE BAD DATA 
MOV 2, $GDDAT ; GET THE GOOD DATA 
MOV RO, $BDADR ; . . GET THE ADDRESS OF DATA FAULT 
ERROR +3 ; . . ERROR - REGISTER COULD NOT HOLD PATTERN 
45$: TST (R1i)- ; . . ARE WE THROUGH THE TABLE ? 
BNE 40$ ; . NO THEN GO WRITE NEXT PATTERN 
; SEE IF WE HAVE CHECKED ALL THE MAP REGISTERS 
ADO #2,RO ; . POINT TO NEXT REGISTER 
CMP RO, #170400 ; . ARE WE THROUGH ALL THE MAP REGISTERS ? 
BNE 10$ ; . GO CHECK THE NEXT REGISTER 


' 


ee ee a ee 


KTJ11-8 DIAGNOSTIC 
TEST - UNIBUS MAP REGISTER ADDRESS UNIQUENESS 


003664 


? 


: 
é 
g 


010237 
016137 
104004 


DS 


MACRO YOS.02 Friday 29-Mar-85 12:53 Page 13 


170200 
170200 


000002 
170400 


170200 
170200 
001120 


177776 


000002 
177700 


001120 
177776 





001122 


001122 





SEQ 0029 


| 
.SBTTL TEST - UNIBUS MAP REGISTER ADDRESS UNIQUENESS 


; , 
;* THIS TEST IS DESIGNED TO DETECT ANY DUAL ADDRESSING 


;* IN THE UNIBUS MAP ADDRESSING LOGIC 
BGNTST 


DO FOR ADDRESS 

. WRITE @ADDRESS TO ADDRESS 

ENDDO 

DO FOR ADDRESS 
READ ADDRESS 


:= 170200 TO 170376 
>= 170200 TO 170376 


IF CONTENTS OF ADDRESS NE ADDRESS THEN 
REPORT ERROR IN ADDRESSING 


EES SEER SEES ERE SEEEEEEEEEEEEESEEEEEEEEEEESEEEESEE 


;*TEST 3 


UNIBUS MAP REGISTER UNIQUENESS TEST 


Fs FESS EKER KEES SESREREE EERE SEEEEESEESEEEEEEEEEEEEEESEEEED 


TST3: SCOPE 


; 
; WRITE ADDRESS INTO ALL MAP REGISTERS 
; 


; GET ADDRESS OF 1ST MAP REGISTER 
; GET ADDRESS OF 1ST MAP REGISTER 
; . WRITE ADDRESS TO ITSELF 
; . GET THE NEXT ADDRESS 

; . HAVE WE WRITTEN TO ALL MAP REGISTERS ? 
; . NO, THEN GO WRITE TO NEXT ADDRESS 


MOV #MAPLOO,RO 
MOV #MAPLOO,R1 
S$: MOV RO,CR1)+ 
ADD #2 .,RO 
CMP #170400 ,RO 
BNE 
; MAKE SURE EACH LOW MAP REGISTER CONTAINS ITS ADDRESS 


; GET ADDRESS TO 1ST MAP REGISTER 
; GET ADDRESS TO iST MAP REGISTER 
; . WAS THE ADDRESS WRITTEN TO THE MAP REGISTER ? 
; . YES, THEN GO CHECK THE HIGH MAP REGISTER 

iw Seo SS 

: GET THE BAD ADDRESS 

: ERROR IN ADDRESSING OF MAP REGISTERS 


; . POINT RO TO HIGH MAP REGISTER 
; . PUT A COPY OF IT INTO R2 

; . MASK OUT THE UPPER 10 BITS 

; . WAS THE ADDRESS WRITTEN TO THE HIGH MAP REGISTER 


; . YES, THEN GO CHECK IF WE ARE THROUGH ALL THE MAP 


; . GET THE GOOD ADDRESS 
; . GET THE BAD ADDRESS 


MOV #MAPLOO, RO 
MOV #MAPLOO,R1 
10$: CMP RO,(R1)+ 
BEQ 15 
MOV RO, $GDADR 
MOV -2(R1), $BDADR 
ERROR +4 
; MAKE SURE EACH HIGH MAP REGISTER CONTAINS ITS ADDRESS 
; 
1iS$: ADD #2,RO 
MOV RO,R2 
BIC #177700,R2 
CMP R2,(R1)+ 
BEQ 20$ 
MOV R2, $GDADR 
MOV -2£R1), $BDADR 
ERROR +4 





; . ERROR IN ADDRESSING OF MAP REGISTERS 





_—  ——— - ee TT 
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SE 
T3 UNIBUS MAP REGISTER UNIQUENESS TEST © 6080 
1084 ; 
oor ; CHECK TO SEE IF WE HAVE CHECKED ALL MAP REGISTERS 
| 
1087 003774 062700 000002 20$: ADD #2,RO ; . GET THE NEXT REGISTER 
1088 004000 020027 170400 CMP RO, #170400 ; . HAVE WE CHECKED ALL THE MAPPING REGISTERS 
tore 004004 001346 BNE 10$ ; . NO, THEN GO CHECK THE NEXT REGISTER 
1091 


1 

1123 004010 
1124 004014 
1125 004020 
1126 004024 


KTJ11-8 DIAGNOSTIC 


000004 


~- ined 
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TEST - UNIQGENESS BETWEEN LOW MAP REGISTERS AND HIGH MAP REGIST 


170200 
077777 
170400 


170200 


001124 
001126 


170400 


"a 


rs 


SEQ 0031 
-SBTTL TEST - UNIQENESS BETWEEN LOW MAP REGISTERS AND HIGH MAP REGISTERS 


, | 
;* THIS TEST IS DESIGNED TO TEST THE UNIQUENESS BETWWEN THE LOW 
;* AND HIGH MAP REGISTERS 


BGNTST 


DO FOR ADDRESS := 170200 TO 170374 
. WRITE #77777 TQ ADDRESS 
ENDDO 
mg FOR ADDRESS := 170200 TO 170374 BY 4 
LET R2 := CONTENTS OF ADDRESS 
LET R3 := CONTENTS OF ADDRESS * 2 
LET RS := R3 - R2 
IF R3 EQ O THEN 
aa IN DIFFERENTIATING BETWEEN HI AND LO REGISTERS 


5 REE ERE EERE REE EEE SEES EEE EEE EEE EEEEEEEEOEEEEEEESEEEEE SEES 
:*TEST 4 HIGH AND LOW MAP REGISTER UNIQUENESS TEST 
jp EERRAERER EES EERE EEE EE EEEEE EEE EES EEEEEEEEEEEE EEE OEE EOO48E4424 


TST4: SCOPE 


; 
; WRITE #77777 TO ALL ADDRESSES 
; MOV #MAPLOO,RO ; GET ADDRESS OF FIRST MAP REGISTER 


S$: MOV #77777 ,CRO)+ ; . WRITE 77777 TO MAP REGISTER 
CMP RO, #170400 ; . HAVE WE WRITTEN TO ALL REGISTERS ? 
BNE S$ ; . NO, THEN GO WRITE TO THE NEXT REGISTER ? 


; 
; MAKE SURE THAT HIGH MAP REGISTER BITS 6-15 ARE CLEARED 


MOV #MAPLOO,RO ; GET ADDRESS OF FIRST MAP REGISTER 
. GET CONTENTS OF LOW MAP REGISTER 


a 


10$: MOV CRO)+,R2 i 
MOV CRO)+,R3 ; . GET CONTENTS OF HIGH MAP REGISTER 
SUB R3,Re2 ; . DIO THE REGISTERS GET ADDRESSED CORRECTLY ? 
BGT 15$ ; . YES, THEN GO SEE IF WE HAVE CHECKED ALL THE MAP R 
CMP -(RO),-CRO) NO, POINT TO THE LOW MAP REGISTER 


GET CONTENTS OF LOW MAP REGISTER 


MOV CRO)+, $GDDAT 
GET CONTENTS OF HIGH MAP REGISTER 


MOV CRO)+, $BDDAT 
ERROR +5 


; SEE IF WE HAVE CHECKED ALL THE MAP REGISTER PAIRS 


; 
15$: CMP RO, #170400 ; . HAVE WE CHECKED ALL THE REGISTERS ? 
BNE 10$ ; . NO, THEN GO CHECK THE NEXT PAIR !2! 


ERROR - MAP REGISTERS WERE NOT ADDRESSED CORREC 


_—_————_——— ae see 


G3 
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SE | 
TEST - DCSR REGISTER RESPONSE TEST 3 Cee 
2 -SBTTL TEST - DCSR REGISTER RESPONSE TEST 
1148 : : 
1149 ;* THIS TEST IS DESIGNED TO SEE IF WE CAN ACCESS THE 
1150 ;* DIAGNOSTIC CONTROLLER STATUS REGISTER.IF WE CAN IT 
1151 ;* TESTS OUT BITS 3-6,9-14 OF THE DCSR AND MAKES SURE 
ait :* THAT A BUS INIT HAS A PROPER RESPONSE IN THE DCSR. | 
; 
1154 : 
1155 ; BGNTST 
1156 ; 
1157 ; LET 4 := ADDRESS OF ERROR ROUTINE 
1158 ; LET 6 := PRIORITY OF 7 
1159 ; LET ADDRESS := 177730 
ery ; READ ADDRESS 
: 
pe ; CHECK BITS 3-6,9 -14 OF THE DCSR REGISTER 
; 
1164 ; LET OCSR := DCSR .OR. #77170 
1165 ; READ DCSR 
166 ; IF DCSR .AND. #77160 NE O THEN 
1167 ; . REPORT ERROR IN BITS 3-6,9-14 OF THE DCSR REGISTER 
1168 ; ENDIF 
1169 ; 
sear ; CHECK OUT THE DCSR RESPONSE TO A RESET 
; 
1172 : CACHE THE RESET INSRUCTION 
1173 ; LET DCSR := DCSR .OR. #206 
1174 ; DO A RESET TO INITIALIZE Me BUS 
1175 ; IF LOWER BYTE OF DCSR GE O THEN 
1176 ; . REPORT ERROR (BIT 7 DID NOT GET SET BY BUS INIT) 
4177 ; ELSE 
1178 ; LET DCSR := DCSR .AND. #6 
1179 : IF DCSR NE O THEN 
1180 ; . REPORT ERROR (BITS 1,2 DIDN'T CLEAR ON BUS INIT) 
1181 : ENDIF 
1182 ; ENDIF 
1183 ; EXIT TEST 
1184 ; : 
1185 ; REPORT THAT ACCESS TO DCSR HAS TIMED OUT 
1186 ; 
1187 ; ENDTST 
1188 : 
1189 PPD EASARN SSR SESSUAS S SRE KEG ELSA e Pe Retnesecnsenss 
1190 
1191 5 ERE REAR ERE ERASERS EEES EE EEE EEEEE EERE EEEEEEEEEEEEEEEE REED 
;*#TEST 5 DCSR REGISTER TEST 
ett tti ttt ittittittittititittitti titi titti ttt titi t titi 
004064 000004 TSTS: SCOPE 
1192 
1193 ; 
oo ; SET UP MEMORY TIMEOUT VECTOR 
1196 004066 012737 004240 000004 MOV #20$ ,at4 ; SET UP VECTOR PC TO ERROR ROUTINE 
oor 004074 012737 000340 000006 MOV #340 , 0#6 ; SET UP VECTOR PSW TO PRIORITY 7 
1199 ; READ ADDRESS OF DCSR TO SEE IF IT TIMES OUT 


—— —* ELL LLL LLL LLL DLL LLL LLL Ln NN—NnNhd Oe Cn 





SOT Sr EE 





TS 


004102 
004106 
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005737 
012737 


052737 
032737 
001412 
013701 
04270. 
010137 
012737 
104006 


012737 
053737 
005737 


052737 
000005 


012737 
104010 


ne oe ll 


H3 
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OCSR REGISTER TEST 


177730 
002266 


077170 
077160 


000200 


000006 
177730 


177730 


177730 
177730 


001124 


001124 
001124 


177730 
177730 


177730 
001126 


001122 


a#DCSR 
#TIMOUT , 804 


TST 
MOV 


wwe me a ie 


SEQ 0033 


; WILL THE DCSR TIMEOUT ? 
; RESTORE TIMEOUT VECTOR 


; TRY TO WRITE ONES TO BITS 3-6 AND 9-14 ( BIT 03 SHOULD STAY WRITTEN) 


BIS #77170, @#DCSR 
BIT #77160, @@DCSR , 
BEQ S$ : 
MOV @#DCSR,R1 :' 
BIC #100607 ,R1 : 
MOV R1, $BDDAT : 
MOV #10. ¢C2NAT 
ERROR +6 

; 

; CACHE THE RESET INSTRUCTION 

; 

S$: MOV #BIT7, $GDDAT 
BIS OCSR, $GDDAT 
TST 10$ ' 

; 

; SET UP DCSR,DO A RESET.“AKE SURE PROPER 

BIS #6, ADCSR ; 

10$: RESET : 
BIT #B1T7,a#DCSR ; 
BNE 15$ ; 
ERROR +7 ; 

15$: BIT #6, @8DCSR : 
BEQ TST6 + 
MOV @#DCSR, $BDDAT ‘ 
ERROR +7 ; 

t 

; ERROR ROUTINE 

; 

20$: MOV #DCSR, $BDADR 
ERROR +10 


TRY TO WRITE TO READ ONLY BITS 
DID THEY GET WRITTEN TO ? 


NO, THEN GO CHECK THE EFFECT OF A RESET ON THE DCSR 


GET COPY OF DCSR INTO Ri 

MASK OUT UNTESTED BITS 

PUT THEM INTO BAD DATA 

GOOD DATA 

ERROR - IN BITS 3-6,9-14 OF DCSR 


ONLY 7 SHOULD BE SET AFTER RESET 
SET BOOT BITS 
CACHE THE RESET 


RESPONSE OCCURS 


SET BIT 7 AND CLEAR BIT 1,2 

DO A BUS INIT 

DIO BIT 7 GET SET ? 

YES, THEN GO CHECK IF BITS 1,2 GOT CLEAR 
NO, THEN ERROR - BIT 7 DIDN‘T GET SET 
DID BIT 1,2 GET CLEARED ? 


YES, THEN GO TO NEXT TEST 


NO, THEN GET CONTENTS OF THE DCSR 
ERROR - BIT 1,2 DID NOT GET CLEAR 


GET ADDRESS OF THE DCSR 
ERROR - DCSR REGISTER ACCESS HAS TIMED OUT 


; 
. LLL ALLL LLL LLL LLL LEA AN , 


_————— _ ee ee —_—_—_————— re rr eee . 
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SEQ 0034 
TEST - KMCR BITS TEST 
1240 .SBTTL TEST - KMCR BITS TEST 
1241 
1242 ; 
1243 ;* THIS TEST CHECKS THAT OUT OF DIAGNOSTIC MODE (DCSR<8>=0), WRITE ACCESS 
soon ;* TO KMCR<S-O> IS DISABLED. 
1246 ; BGNTST 
1247 ; 
1248 ; LET 4 := ADDRESS OF TIMEOUT ROUTINE 
1249 ; LET 6 := PRIORITY OF TIMEOUT ROUTINE 
1250 ; READ THE MEMORY CONFIGURATION FROM THE EAROM 
1251 ; CHECK THAT IF DCSR<8>=0 WRITE ACCESS TO KMCR<5-0> DISABELD 
1252 ; IF NOT THEN 
1253 ; . ERROR 
1254 ; ENDIF 
1255 : 
1256 ; ENDTST 
1257 ; 
1258 Bn nn nn ne nn nn nn ne nen nee +e 
1259 
1260 Merit tiititititititttitititittititit ii tittit tit titi ttt it ititit ttt 
;*TEST 6 KMCR MEMORY CONFIGURATION BITS TEST 
Me Titiititi it tititiitit ti ttitiitiitttti ttt ttt ttt TTT tT TT titi Tittle . 
004250 000004 TST6: SCOPE 

1261 
1262 ; 
1263 ; SETUP TIMEOUT VECTOR,TO ERROR ROUTINE 
1264 ; VERIFY THAT AT LEAST SOME PMI MEMORY PRESENT 
1265 ; 
1266 004252 012737 004416 000004 MOV #10$ , 804 ; SET VECTOR PC TO ERROR ROUTINE 
1267 004260 012737 000340 000006 MOV #340 , 896 ; SET VECTOR PSW TO ERROR ROUTINE 
1268 004266 013737 177734 001160 MOV KMCR, $TMPO ; STORE KMCR 
1269 004274 012737 002266 000004 MOV #TIMOUT , 204 ; RESTORE TIMEOUT VECTOR 
1270 004302 042737 177700 001160 BIC #177700, $TMPO ; CLEAR ALL BUT U.MEMORY 
1271 004310 022737 000077 001160 CMP #77, $TMPO ; NO PMI MEMORY? 
1272 004316 001003 BNE 2$ ; IF SOME, GO TO THE NEXT TEST 
1273 004320 005037 001720 CLR PMIS ; OTHERWISE FLAG NO PMI MEMORY 
1274 004324 000440 BR TST7 ;3 AND EXIT TEST 
1275 ; 
1276 ; CHECK THAT NOT IN DIAGNOSTIC MODE WRITE ACCESS TO KMCR<5S-0> IS DISABLED 
1277 ; 
1278 004326 013701 177734 28 MOV Kr 2,R1 ; STORE PATTERN FROM KMCR TO Ri 
1279 004332 005101 COM Ri ; COMPLEMENT THE PATTERN 
1280 004334 042701 177700 BIC #177700,R1 ; CLEAR BITS <15-6> 
1281 004340 042737 000400 177730 BIC #BITO8 ,DOCSR ; MAKE SURE THAT NOT IN DIAGN. MODE 
12862 004346 042701 000010 BIC #BITOS,R1 ; ENASLE 32K, IN CASE OF ERROR 
1283 004352 050137 177734 BIS Ri,KMCR ; TRY TO WRITE TO KMCR<5-0> 
1284 004356 020137 177734 CMP R1i,KMCR ; WRITTEN OK? 
1285 004362 001014 BNE i$ ; IF DIDN'T WRITE, BRANCH 
1286 004364 013737 177734 001124 MOV KMCR, $GDDAT ; NO, THEN GET THE GOOD DATA 
1287 004372 010137 001126 MOV R1, $BDDAT ; GET THE BAD DATA 
1288 004376 012737 177734 001122 MOV #KMCR , $BDADR ; GET THE ADDRESS OF THE KMCR 
1289 004404 013737 001160 177734 MOV $TMPO,KMCR ; RESTORE KMCR 

ee 104011 ERROR +11 ; NO, THEN ERROR - BITS DID NOT GET SET CORRECTLY IN 
1291 004414 1$: 

| — 004414 000404 BR TST7 3; GO TO THE NEXT TEST 

' ; 





lente 








ee ~* em ne a 
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T6 KMCR MEMORY CONFIGURATION BITS TEST 


1293 ; TIMEOUT ROUTINE 
1294 : 


1295 004416 012737 177734 001122 10$: MOV #KMCR , $BDADR . ; GET THE ADDRESS OF THE KMCR 
1296 004424 104012 ERROR +12 ; ERROR - MEMORY TIMEOUT HAS OCCURED 


a a Tn —_—_—_——_—-——— ee ~ —_—— -——— ee 
' 


| Ks 
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TEST - UNIBUS TIMEOUT TEST 


ye .SBTTL TEST - UNIBUS TIMEOUT TEST 

1300 ;* THIS TEST CHECKS OUT THE UNIBUS TIMEOUT LOGIC 

1301 ;* BEFORE IT IS USED IN ANY TESTS 

1302 ; 

1303 ; BGNTST 

1304 3 

1305 ; LET 4 := THE ADDRESS 10$ 

1306 ; LET 6 := #340 

1307 ; MAKE SURE THAT UBA IS IN DIAGNOSTIC MODE,OCSR<8> IS SET 

1308 ; READ UNIBUS LOCATION 

1309 ; IF NO TIMEOUT THEN 

care ; -. OR - UBA DIDN'T TIMEOUT ON UNIBUS ACCESS IN DIAGNOSTIC MODE 
; 

1312 ; 10$: CLEAN UP THE STACK 

1313 ; 

1314 ; ENDTST 

1315 ’ 

1316 fr ne ne nn nn ne ee ee eee ee 

1317 

1318 we Ti tii iT ti tititttititiitititt i ititiitit tit ttt ti ttt titi titi t ttt tt 
;*TEST 7 UNIBUS TIMEOUT TEST 
Me tTi tii titi i tittitttitittittii ttt tit itt TTT TTT i tTititiTi tit ettt 

004426 000004 TST7: SCOPE 

1319 

1320 ; 

oes ; SET UP MEMORY TIMEOUT VECTOR AND PUT UBA INTO DIAGNOSTIC MODE 
5 

1323 004430 005737 001720 TST PMIS ; ANY PMI MEMORY? 

1324 004434 001425 BEQ TST10 ;; IF NONE, EXIT TEST 

1325 004436 012737 004470 000004 MOV #10$ , #4 ; SET UP TIMEOUT VECTOR TO END OF TEST 

1326 004444 012737 000340 000006 MOV #340 , 806 : 

i 004452 052737 000400 177730 BIS #BIT8,OCSR ; PUT UBA INTO DIAGNOSTIC MODE 

1 

1329 ; 

1330 ; READ A UNIBUS LOCATION 

1332 

1333 004460 005737 170002 TST a#170002 ; TRY TO READ UBE REGISTER ? 

1334 004464 104036 ERROR +36 ; ERROR - SHOULD TIMEOUT HERE 

1335 004466 000402 BR 11$ ; GO TO THE NEXT TEST 

1336 

1337 ; 

1338 ; TIMEOUT ROUTINE 

1339 ; 

1340 

1341 004470 005726 10$: TST (SP)+ ; CLEAN UP THE STACK 

1342 004472 005726 TST (SP)+ ; 

1343 004474 012737 002266 000004 ii$: MOV #TIMOUT , 204 ; RESTORE TIMEOUT VECTOR 

oo 004502 042737 000400 177730 BIC #BIT8,DOCSR ; 

1346 


. LLL LLL LL LLL 
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001720 
000400 


000006 
001774 
001160 


000200 
001124 
002242 
177732 
177732 
001160 
001160 


000400 


177730 
177730 


177730 


001124 
001126 
001124 
001126 


177730 


-SBTTL TEST - DATA OUT WITHOUT RELOCATION 
;* THIS TEST WILL PERFORM DIAGNOSTIC DATA OUT CYCLES WITHOUT ENABLING 


;* RELOCATION. 


SEQ 0037 


THE CYCLES WILL BE VERIFIED TO WORK CORRECTLY AND 


;* DIAGNOSTIC NPR REGISTER WILL BE CHECKED TO BE ABLE TO STORE PROPER 


;* DATA. 
BGNTST 


LET TEST_LOCATION = 0 


IF DOR NE PATTERN THEN 
ERROR IN PATH 
ENDIF 


MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 
SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1>=<0,0> 


- FOR PATTERN = 377,7417,31463,52525,125152 (BINARY DIVIDE) 
CALL DIAGNOSTIC _DATA_ OUT <TEST: “LOCATION, PATTERN> 


IF TEST_LOCATION NE PATTERN THEN 
ERROR PERFORMINDG DATA OUT 


fF SEES EEE E SESE EEEESEEREEEEEEEEESKESREESEEEEE 


DATA OUT WITHOUT RELOCATION 


FF FRESE EEA ERE EEEEEEEEEEESEEEEEEEESEEEEEEEEESDE 


;*TEST 10 

TST10: SCOPE 
TST PMIS 
BEQ TSTil 
BIS #BITO8 ,DC 
BIC #BITO2!BITO1, DCSR 
MOV #PTRNI6 ,R2 
MOV O$TMPO,R1 
CLR CR1) 
BIT #BITO7,DCSR 
BNE i$ 
ERROR +17 

1$: MOV CR2),.$GDDAT 
JSR PC ,ODOUT 
CMP DOR, $GDDAT 
BEQ 2$ 
MOV DDR , $BDDAT 
ERROR + 

2s: CMP $TMPO, $GDDAT 
BEQ 3$ 
MOV $TMPO, $BDDAT 
ERROR +14 

3$: TST (R2)+ 
BNE i$ 
BIC #BIT8,DOCSR 


; ANY PMI MEMORY? 


3; IF NONE, EXIT TEST 


MAKE SURE DIAGNOSTIC MODE IS ON 
MAKE SURE NPR REGISTER IS SELECTED 
POINT TO BINARY DIVIDE PATTERN 
STORE TEST LOCATION 

CLEAR TEST LOCATION 

READY BIT oy 


° ERN 
. PERFORM DIAGNOSTIC DATA OUT 
. DDR HAS PROPER PATTERN 


DOR FOR ERROR REPORTS 
. ERROR IN DATA PATH 
. DATA OUT OK? 
. BRANCH, IF YES 
’ STORE MEMORY FOR ERROR REPORTS 
. ERROR IN DATA OUT 
. LAST PATTERN? 
. IF NOT, BRANCH 


ee, ie 


— ee 
e : 
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013737 


023737 


- oe asss:-«—«~ 
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TEST - DATA IN WITHOUT RELOCATION 


177732 
177732 


000400 


177730 
177730 


177730 
001160 


001124 
001126 


177730 


-SBTTL TEST - DATA IN WITHOUT RELOCATION 


;* THIS TEST WILL PERFORM DIAGNOSTIC DATA IN CYCLE AND VERIFY ITS 
OPERATION 


3% 


BGNTST 


MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 


SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-1>=<0,0> 


LET PATTERN = 52525 
LET DCSR<O> = #1 


WRITE PATTERN TO — 


IF DOR NE PATTERN THE 


ERROR PERFORMING DATA IN 


ENDIF 


$f SSeS EKSSERSERSES SEE SESESSEESES EEE SEESEESEESEEEESEEEEEEEEEEEEOEEEDE 


;*TEST 11 
£ FSSA SSSSEESESEK SESE ESESSEEEREEEEEEESEEEESESEEESEEEESEEEEEEEEEESSE 


TSTi1: SCOPE 
TST PMIS ; 
BEQ TSTi2 33; IF NONE 
BIS #BITO8 ,OCSR : 
BIC #BITO2!BIT01,DCSR ; 
MOV OPTRN1I6,R2 ; 

5$: MOV CR2), $GDDAT : 
BIS #BITOO,DCSR ; 
MOV $GDDAT , $ TMPO ; 

; 

; NOW COMPARE THE RESULTS 

; 
CMP DDR , $GDDAT ; 
BEQ 10$ : 
MOV DOR , $BDDAT ; 
ERROR «15 ; 

10$: TST CR2)-+ : 
BNE S$ ; 
BIC #BITO8 ,OCSR 


DATA IN WITHOUT RELOCATION 


ANY PMI MEMORY? 


» EXIT TEST 

MAKE SURE DIAGNOSTIC MODE IS ON 
SURE NPR REGISTER IS SELECTED 

GET TEST PATTERN TABLE 


USE TEST PATTERN 
SET GO BIT 


STORE PATTERN IN TEST LOCATON 


DDR GOT DATA OK? 
IF NO, ERROR 


STORE DDR FOR ERROR REPORTS 


ERROR IN DATA IN 
DONE ? 


ARE WE 
NO 


rr 
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TEST - CONTENT OF ODOR 


ead -SBTTL TEST - CONTENT OF DDR 
1443 ;* THIS TEST VERIFIES THAT IF DCSR<2-1> ARE NOT ZERO, DOR IS oamates 
vas ;* READ AS 0, MEANING THAT NONE OF THE UNIBUS LINES ARE STUCK 
$ 
1446 ; BGNTST 
1447 $ 
1448 $ DO FOR DOCSR<2-1> FROM <0,1> TO <1,1> 
1449 ; DO DATI 
1450 : IF DDR NE O THEN 
1451 ; . ERROR IN UNIBUS LINES 
1452 $ . ENDIF 
1453 ; ENDDO 
1454 $ 
1455 3 ENDTST 
1456 ; 
1457 fot ee ee we we eee ee ee ewe eee eee we ee eee ene cee wesc eee eceenes 
1458 
1459 Merit itiiiiiiitiiiitiiiiiiiiiiiiiiitiiitiiitiiiiiitititittitiitit tT 
;#TEST 12 CONTENT OF DDR 
j PERRO EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESEEEEDE DEEDS EEEESEEEESEESS 
004744 TSTi2: SCOPE 
1460 004746 005737 001720 TST PMIS ANY PMI MEMORY? 
1461 004752 001445 TST1i3 :3; IF NONE, EXIT TEST 
1462 004754 052737 000400 177730 BIS #BITO8 ,DOCSR ; MAKE SURE IN DIAG. MODE 
1463 004762 052737 000002 177730 BIS #B8IT01,DCSR ; START WITH 1 IN OCSR 
1464 004770 012703 000003 MOV #3 ,R3 DO 3 TIMES 
1465 004774 005037 001124 CLR $GDDAT ; RECIEVED DATA O 
1466 005000 005001 i$: CLR Ri ; . ADDRESS 0 
1467 005002 004737 002254 JSR PC ,ODIN ; . DO DIAGNOSTIC DATI 
005006 022703 000001 CMP #1, ; . CONTROL LINES SELECTED? 
1469 005012 001403 BEQ 2$ ; . IF YES, CHECK IT 
1470 005014 005737 177732 TST DDR ; . ALL ZEROES? 
1471 005020 0014135 BEQ 3$ ; . IF YES, BRANCH 
1472 005022 012737 177400 001124 23: MOV #177400, $GDDAT ; . EXPECTED PATTERN 
1473 005030 032737 000373 177732 BIT $373, DOR ; . SELECT ONLY USED 
1474 005036 001404 BEQ 3$ ; . IF ALL ZEROES, BRANCH 
1475 005040 013737 177732 001126 MOV DDR , $BDDAT ; . STORE RECIEVED DATA 
476 005046 104016 ERROR +16 ; . ERROR IN UNIBUS LINES 
1477 005050 062737 000002 177730 3%: ADD #6IT01,0CSR ; . GET NEXT SET OF UNIBUS LINES 
1478 005056 077330 SOB R3,1$ ; . DO FOR ALL COMBINATIONS 
1479 005060 042737 000400 177730 BIC oBITS, OCSR ; 
1480 
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SE 
TEST - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS = Cone 
“ee .SBTTL TEST - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
1484 :* THIS TEST WILL CHECK THAT EACH OF THE UNIBUS MAP — PAIRS CAN BE 
1485 ;* ACCESSED INDIRECTLY AND THAT RELOCATION WORKS PROPERL 
1486 ;* DATA OUT CYCLES WILL BE PERFORMED. EACH REGISTER EXCEPT THE ONE 
1487 ;* UNDER TEST WILL POINT TO NXM 17760000. THE REGISTER PAIR UNDER TEST 
1488 ;* WILL POINT TO 0, AND DIAGNOSTIC DATA OUT CYCLES WILL BE PERFORMED 
1489 ;* TO PHYSICAL LOCATION 0. IN UFD MODE THIS TEST WILL RUN ONLY IF 
1490 ;* KMCR<5>=«0, I.E. 22 BIT MODE. 
1491 : 
1492 ; BGNTST 
1493 ; 
1494 : F UFD MODE AND KMCR<5S> EQ #1 THEN 
— : neue TEST CRELOCATIGN DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
: 
1497 : MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 
1498 : SELECT DIAGNOSTIC NPR THRU DDR BY DCSR<2-1>=<0,0> 
1499 ; DO FOR 32. MAPPING REGISTERS 
1500 : LET LO REGISTER = #160000 
1501 : LET HI REGISTER = #77 
1502 ; ENDDO CALL REGISTERS POINT TO - 17760000 ) 
1503 : POINT TIMEOUT_ROUTINE TO VECTOR 4 
1504 : CALL MAP _PROGRAM_ AREA 
1505 : LET MMRO<O> = 1 TO ENABLE MMU 
1506 : LET MMR3<S> = 1 TO ENABLE RELOCATION 
1507 3 POINT RO TO ADDRESS OF MAP REGISTER 0 
1508 $ LET KIPAR6 = #0 TO ACCESS REGISTER 0 
1509 ; LET CRO) = 60 
1510 3 LET (RO)+2 = #0 TO USE ONLY 16 BITS 
1511 : LET R1 = #140000 TC ACCESS THRU KIPARG6 
1512 ; IF NOT UFD THEN 
1513 ; . SAVE KMCR 
1514 : . CLEAR KMCR<4-0> 
1515 : . LET R4&4 = 31. (DO FOR ALL REGISTERS) 
1516 : ELSE 
oH 8 naar R4 = 31. - CKMCR<4-1>) ONLY NOT DISABLED REGISTERS 
151 : 
1519 $ - FOR R3 FROM @0 TO R4 FOR ALL REGISTERS 
1520 $ CLEAR @@0 CTHIS LOCATION IS ACTUALLY USED) 
1521 ; LET PATTERN = RO CADDRESS OF LOW REGISTER) 
1522 : CALL DIAGNOSTIC_DATA_OUT <C(R1),PATTERN> 
1523 ; . IF TIMEOUT THEN 
1524 ; - « ERROR IN UNIQUE ADDRESSING OF REGISTERS 
1525 3 . ENDIF 
1526 $ IF 880 NE PATTERN THEN 
1527 3 . ERROR PERFORMING DATA OUT 
1528 $ IF 
1529 : LET (RO)+ = #160000 
1530 $ LET (RO)+ = #77 TO MAP JUST USED PAIR TO NXM 
1531 ; LET CRO) = #0 
1532 ; LET (RO)+2 = #0 TO MAP NEXT PAIR TO TEST_LOCATION 
1533 ; LET KIPAR6 = KIPAR6 + #200 TO ACCESS NEXT PAIR 
1534 : ENDDO 
1535 : DISABLE MMU 
1536 : 
1537 ; ENDTST 
1538 ; 
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TEST - INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
1539 Bm en en ee nn eee eee ween en ennee 
1540 
1541 Meritititttitiiiitiiit ti tititiittititiiititiiiitititi tT Titi tt titi tT 
:*TEST 13 INDIRECT ACCESSING OF UNIBUS MAP REGISTERS 
Mmettti iit titititiititittitititititititti ti titi iTiititiLtitititititit 
nee 005066 000004 TSTi3: SCOPE 
1543 005070 005737 001720 TST PMIS ; ANY PMI MEMORY? 
1544 005074 001576 BEQ TST14 ;:; IF NONE, EXIT TEST 
1545 005076 032737 000040 000052 BIT #BITOS ,aes2 ; UFD MODE ? 
1 005104 001406 BEQ i$ ; BRANCH, IF NOT 
1547 005106 032737 000040 177734 BIT #BITOS,KMCR ; 18 BIT MODE ? 
1548 005114 001402 BEQ i$ ; BRANCH, IF NOT 
1549 005116 000137 005452 JMP 10$ ; EXIT TEST 
1550 005122 052737 000400 177730 i$: BIS #BITO8,OCSR ; SET DIAGNOSTIC MODE 
ho 005130 042737 000006 177730 BIC #BITO2!BITO1,O0CSR ; SELECT NPR THRU DDR 
: 
cone ; POINT EACH OF MAPPING REGISTER PAIRS TO 17760000 
; 
1555 005136 012701 MOV #32. ,R1 ; DO FOR 32. REGISTER PAIRS 
1556 005142 012702 170200 MOV #MAPLOO,R2 ; POINT TO ADDRESS OF THE FIRST REGISTER 
1557 005146 012722 160000 2$: MOV #160000, (R2)+ ; . 160000 -> LO REGISTER 
1558 005152 012722 000077 MOV #77,CR2)+ ; . 77 -> HI REGISTER 
oace 005156 077105 SOB R1,2$ ; . CONTINUE UNTILL ALL DONE 
: 
a. ; INITIALISE TO DO RELOCATION IN 22 BIT MODE 
1 $ 
1563 005160 012737 002266 000004 MOV @TIMOUT ,ae4 ; POINT TIMEOUT ROUTINE 
1 005166 004737 002276 JSR PC ,MAPPR ; REMAP PROGRAM AREA 
1565 005172 005237 177572 INC 9) ; TURN ON MMU 
1566 005176 052737 172516 BIS #BITOS .MMRS ; ENABLE RELOCATION 
1567 005204 012700 170200 MOV #MAPLOO ,RO ; POINT RO TO FIRST REGISTER 
1568 005210 012737 000000 172354 MOV #0, KIPARG6 ; LET KIPAR6 SELECT MAP PAIR 0 
1569 005216 012710 000000 MOV #0, CRO) ; MOVE O TO LOW ADDRESS 
1570 005222 012760 9000000 000002 MOV #0,2CRO) ; MOVE O TO HI ADDRESS 
1571 005230 012701 140000 MOV ; TO ACCESS THRU KIPAR6 
1572 : 
1573 ; STORE # OF REGISTERS TO TEST IN R4 
1574 : 
1575 005234 032737 000040 000052 BIT #BITOS ,.ae52 ; UFD MODE ? 
1576 005242 001010 BNE 3$ ; IF YES, BRANCH 
1577 00 013737 177734 001162 MOV KMCR , $TMP1 ; SAVE KMCR 
1578 00 005037 177734 CLR KMCR ; DO NOT DISABLE ANY REGISTERS 
1579 005256 012704 000036 MOV #30. ,R4 ; DO FOR ALL REGISTERS 
1580 005262 07 BR 4$ ; BRANCH AROUND 
1581 113703 177734 3$: MOVB KMCR ,R3 ; STORE #@ OF DISABLED REGISTERS 
1582 005270 042703 177740 BIC #177740,R3 ; LEAVE JUST BITS <4-0> 
1583 005274 012704 000036 MOV #30. ,R4 :; STORE MAX. # OF REGISTERS 
po 005300 160304 SUB R3,R4 ; GET @ OF ACCESSABLE REGISTERS 
: 
= ; DO DATA OUT FOR EACH REGISTER PAIR UNDER TEST 
1 ; 
1588 005302 005003 4$: CLR R3 ; START WITH REGISTER PAIR O 
1589 304 005037 000000 5$: CLR aeO ; . CLEAR LOCATION UNDER TEST 
1590 005310 005037 001730 CLR TOUT ; . CLEAR TIMEOUT FLAG 
1591 005314 010037 001124 MOV RO, $GDDAT ; . PATTERN IS ADDRESS OF LO REGISTER 
1592 005320 004737 002242 JSR PC ,DDOUT ; . DO DIAGN. DATA OUT 


‘ 
=_—> <- «- 
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SEQ 004 

T1i3 INDIRECT ACCESSING OF UNIBUS MAP REGISTERS . 

1593 005324 005737 001730 TST TOUT ; . TIMEOUT FLAG SET? 

1594 005330 001411 BEQ 6$ ; . IF NOT BRANCH 

1595 005332 013737 172354 001122 MOV KIPAR6, $BDADR ; . STORE # OF PAIR FOR ERRORS 

1596 005340 012705 000007 MOV #7,R5 ; . PREPARE TO SHIFT TO GET TO LOWER BITS 

1597 005 237 001122 11$: ASR $BDADR ; . SHIFT ONCE 

1598 005350 077503 SOB RS,11$ ; . . SHIFT 7 TIMES 

1599 005352 104020 ERROR +20 ; . IN UNIQUE _ OF REGISTERS 

1600 005354 023737 000000 001124 6%: CMP a#0, $GDDAT ; . DATA OUT OK 

1601 005362 001404 BEQ 7$ s . 2P YES, BRANCH 

1602 364 013737 000000 001126 MOV 80, $BDDAT ; . STORE FOR ERROR REPORTS 

1603 005372 104013 ERROR +13 ; . PERFORMING DATA OUT 

1604 005374 012720 160000 7$: MOV #160000, (RO)+ ; . POINT JUST USED REGISTER 

1605 005400 012720 000077 MOV #77,CRO)+ ; . TO NXM 

1606 005404 012710 000000 MOV #0,(R ; . POINT NEXT REGISTER PAIR 

1607 005410 012760 000000 000002 MOV #0 ,2CRO) ; . TO LOCATION 0 

1608 005416 062737 000200 172354 ADD #200 , KIPAR6 ; . ACCESS NEXT REGISTER PAIR 

1609 005424 062703 000001 ADD »R3 ; . INCREMENT COUNT 

1610 0054 020304 CMP R3,R4 ; . ALL AVAILABLE PAIRS DONE? 

1611 005432 003724 BLE S$ ; . BRANCH IF NOT 

1612 005434 032737 000040 000052 BIT #BITOS,a#S2 ; CHECK TO SEE IF KMCR WAS SAVED 

1613 005442 001003 BNE 10$ ; NO, DON’T RESTORE KMCR 

1614 013737 001162 177734 MOV $TMP1,KMCR ; RESTORE KMCR 

1615 005452 005037 177572 10$: CLR MMRO ; DISABLE MMU 

1616 005456 042737 000040 172516 BIC #BITOS ,MMRS ; DISABLE MAPPING 

1617 005464 042737 000400 177730 BIC #BIT8,DCSR : EXIT DIAGNOSTIC MODE 


| E4 
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TEST - DISABLING OF THE MAPPING REGISTERS 


SEQ 0043 


, 
-_—--- 


_ .SBTTL TEST - DISABLING OF THE MAPPING REGISTERS 
621 ;* THIS TEST WILL CHECK THAT NONE OF THE REGISTERS DISABLED BY KMCR<4-0> 

1622 ;* PERFORM RELOCATION. IN UFD MODE ONLY THE BITS ACTUALLY SET IN THE KMCR WILL 

1623 ;* BE CHECKED, OTHREWISE ALL OF THEM EXCEPT THE FIRST 4 ARE CHECKED. 

sane ;* IN UFO MODE THIS TEST WILL RUN ONLY IF KMCR<5>=0. CIN 22 BIT MODE) 
$ 

1626 ; BGNTST 

1627 : 

1628 ; IF UFD MODE AND KMCR<5S> EQ #1 THEN 

rt ; inane” TEST CRELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
; 

1631 ; MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=-1 

1632 $ SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1>=<0,0> 

1633 : CALL MAP_PROGRAM_AREA 

1634 : LET MMR3<5> = #1 TO ENABLE RELOCATION 

1635 : LET MMRO<O> = #1 TO ENABLE MMU 

1636 : LET R1 = #140000 TO ACCESS THRU KIPARG6 

1637 : LET KIPAR6 = #7600 TO ACCESS MAP REG. 32. 

1638 ; SET 4 TO IGNORE TIMEOUT 

1639 : LET PATTERN = #125252 

1640 : LET 380 = #0 

1641 ; LET MAPL37 = #0 

1642 : LET MAPH37 = #0 

1643 : CALL DIAGNOSTIC_DATA_OUT<(RO),PATTERN> 

1644 ; IF a@@0 EQ PATTERN THEN 

1645 : ERROR REG. PAIR 37 PERFORMS RELOCATION 

1646 ; NDIF 

1647 : 

1648 ; ENDTST 

1649 ; 

1650 Bt me en een ne nen nn ne eee eee 

1651 

1652 5 REESE REESE EEEEEEEEEEEEEEOEOEEOESEEEEEEEEEEEEEEEEEOEEEEEEEE 
;*TEST 14 DISABLING REGISTERS 
wet i titi ti tii ii itii iii iii iiitiiitiittitttitit itt tt ttt TT TTT TtTtT 

005472 000004 TST14: SCOPE 

1653 

1654 005474 005737 001720 TST PMIS ; ANY PMI MEMORY? 

1655 001473 BEQ TSTi5 ;; IF NONE, EXIT TEST 

1656 005502 032737 000040 000052 BIT #BITOS ,a#52 ; UFD MODE ? 

1657 005510 001404 BEQ i$ ; BRANCH, IF NOT 

1658 005512 032737 000040 177734 BIT #BITOS,KMCR ; 18 BIT MODE ? 

e+ 005520 001063 BNE TST1i5 ;;EXIT TEST IF 18 BIT MODE 

1 ; 

aoe ; INITIALISE MMU AND DIAGNOSTIC REGISTERS 

1 ; 

1663 005522 052737 000400 177730 i$: BIS #BITO8,DCSR ; SET DIAGNOSTIC MODE 

1664 005530 042737 000006 177730 BIC e81T02:B1T01, DCSR ; SELECT NPR THRU DDR 

1665 005536 004737 002276 JSR PC ,MAP ; REMAP PROGRAM AREA 

1666 005542 005237 177572 INC HMRO ; TURN ON MMU 

eet 005546 052737 000040 172516 BIS #BITOS,MMR3 ; ENABLE RELOCATION 

a. ; TRY TO DO RELOCATION THRU REGISTER PAIR 31. 

1671 005554 012737 005636 000004 MOV H2$ , 004 ; INITIALISE TIMEOUT ROUTINE 

1672 005562 012701 140000 MOV #140000,R1 ; ACCESS THRU KIPAR6 














— err ee ee 
—_— 


————— a <a ~ 


meinen’! 


KTJ11-8 DIAGNOSTIC MACRO YOS.02 Friday 29-Mar-85 12:53 Page 22-1 
T14 DISABLING REGISTERS 
1673 005 012737 007600 172354 MOV #7600 , KIPAR6 
1674 005574 012737 125252 001124 MOV #125252, $GDDAT 
1675 005602 005037 000000 CLR a#0 
1676 005606 012737 000000 170374 MOV #0 ,MAPL37 
1677 005614 012737 000000 170376 MOV #0 , MAPH37 
1678 005622 013737 001124 177732 MOV $GDDAT ,DDR 
1679 005630 11 CLR (Ri) 
1680 005632 104021 ERROR +21 
1681 005634 000402 BR 3$ 
1682 005636 005726 2$: TST (SP )+ 
1683 005640 005726 TST (SP )+ 
1684 005642 005037 177572 3$: CLR 0 
1685 005646 042737 000040 172516 BIC #BITOS ,MMRS 
1686 005654 012737 002266 000004 MOV #TIMOUT , O04 
1687 005662 042737 000400 177730 BIC #BIT&,O0CSR 


se 6 ee es Se Ss @s Ge Ge Ss Fe 


ACCESS REG. PAIR 31. 

STORE PATTERN 

CLEAR LOCATION UNDER TEST 

LET MAP PAIR 31. 

POINT TO 0 

STORE PATTERN IN DDR 

EXTENAL READ TO PROVIDE ADDRESS 
RELOCATION PERFORMED THRU REG. 31. 
EXIT TEST 

RESTORE STACK 


DISABLE MMU 

DISABLE MAPPING 
RESTORE TIMEOUT 

EXIT DIAGNOSTIC MODE 


1739 


me lS 


005670 


005672 
005676 
005700 
005706 
005712 


005716 
005722 
005730 


38 005732 


005740 


1740 005742 


1741 


005750 


1742 0905752 


oe <= 
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TEST - NXM MEMORY TIMEOUT 


001720 


000400 
002276 
177572 





177730 


000052 
177734 
172354 
001162 


-SBTTL TEST - NXM MEMORY TIMEOUT 
;* THIS TEST WILL VERIFY THAT WHENEVER LOCATION 17760000 IS ACCESSED 


;* DIAGNOSTIC NPR CYCLES RESULT IN A TIMEOUT SETTING BIT <15> IN DCSR. 


BGNTST 


MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 
SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1>=<0,0> 
CALL MAP_PROGRAM_AREA 
LET MMRO<O> = 1 TO ENABLE MMU 
IF NOT UFD MODE OR KMCR<S> EQ #0 
LET TEST_LOCATION = #140000 TO ACCESS THRU KIPARG 
LET KIPAR6 = #0 TO ACCESS REGISTER PAIR O 
LET LO REGISTER = #160000 TO SET REG. O TO NXM 
LET HI REGISTER = #477 
LET MMR3<5S> = 1 TO ENABLE RELOCATION 


LSE 
IF KMCR<S> EQ #1 THENC18 BIT MODE) 
LET TEST_LOCATION = #140000 TO ACCESS THRU KIPAR6 
LET KIPAR6 = #177600 TO ACCESS NAM 
. ENDIF 
ENDIF 
START DIAGNOSTIC_DATA_OUT TO a#0 
IF DCSR<i5> NE O THEN 
. ERROR NXM BIT SET 
ENDIF 
PUT ACTUAL EXTERNAL ADDRESS ON THE BUS 
IF OCSR<15> NE 1 THEN 
Po a NXM MEMORY DOES NOT SET DCSR<15> 


ge EERE ESSES EKER SSS SERRE EKERESESSEEEEEREEESEEESEESEESEE 


;* TEST 
TSTiS: 


NXM MEMORY TIMEOUT 
5 EERE E EER ERE EE REESE EERE EEE EE EEE EES EEEEEEEEEEERREER RE EE EDD 
SCOPE 
TST PMIS Y PMI MEMORY? 
BEQ TST16 ;; IF NONE, EXIT ‘TEST 
BIS #BIT8,OCSR ; SELECT Bn gh 8 MODE 
JSR PC ,MAPPR ; REMAP PROGRAM AREA 
INC MMRO ; ENABLE MMU 


i5 


; 
; DECIDE WHETHER TO ACCESS WITH RELOCATION OR NOT 


1$: 





MOV #140000 ,R1 ; ACCESS THRU KIPAR6 
BIT #BITOS,a#S2 : MODE ? 

BEQ 1$ ; IF NOT, BRANCH 
BIT #BITOS ,KMCR ; 18 BIT MODE? 

BEQ 2$ ; IF NOT BRANCH 

MOV #177600 , KIPAR6 ; KIPAR6 HAS NXM 

BR 3$ ; GO 00 IT 

MOV KMCR, $TMP1 ; SAVE KMCR 





ee me ec ee ell 


| 
KTJ11-B DIAGNOSTIC 
T15 NXM MEMORY TIMEOUT 
1743 005760 042737 000040 
000000 
1745S 005774 012737 160000 


1746 006002 012737 000077 
1747 006010 052737 000040 


1751 006016 005037 177732 
1753 006024 032737 100000 
1756 006036 005037 177572 
1757 006042 042737 000040 
1758 006050 032737 000040 


1760 006060 013737 001162 
1761 006066 042737 000400 


———— TT 
e . 


172516 


177730 


172516 
000052 


177734 
177730 


H4 
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BIC #BITOS,KMCR 
2s: MOV #0 , KIPARG6 
MOV #160000 , MAPLOO 
MOV #77 ,MAPHOO 
BIS #BITOS,MMR3 
‘ 
; DO ACTUAL DATA OUT CYCLE 
; 
3$: CLR DDR 
CLR CR1) 
BIT #BIT1S5,DCSR 
BNE 5$ 
ERROR +22 
5$: CLR MMRO 
BIC #BITOS ,MMRS 
BIT #BITOS ,a#S2 
BNE TST16 
MOV $TMP1,KMCR 
BIC #BIT8,DCSR 


IN NOT UFD, DO IN 22 BITS 
KIPAR6 ACCESS MAP REG. 0 
MAP PAIR HAS NXM 


ENABLE RELOCATION 


PROMT DIAG. DATO 
WRITE TO NXM 

NXM SET? 

IF YES, BRANCH 

NXM ay NOT SET DCSR<15> 


UFD MODE 
;;IF NOT UFD, GO TO NEXT TEST 


; OTHERWISE, RESTORE KMCR 
; EXIT DIAGNOSTIC MODE 


| 14 
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TEST - CARRY PROPOGATION TEST 


w 
m 
mS 
~J 


— .SBTTL TEST - CARRY PROPOGATION TEST 
1766 ;* THIS TEST CHECKS THE CARRY PROPOGATION THRU THE ALU. MAPPING REGISTER PAIR O 
1767 ;* IS LOADED WITH ALL 1'S. LOCATION 1 IS ACCESSED. THE RESULT OF THE DATO 
toes ;* CYCLE IS SUPPOSED TO BE LOADED IN LOCATION O. 
; 
1770 ; BGNTST 
1771 ; 
1772 ; IF UFD MODE AND KMCR<5> EQ #1 THEN 
fad. ; nour TEST CRELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
: 
1775 ; MAKE SURE THAT DIGNOSTIC MODE IS ON DCSR<8>=1 
1776 : SELECT DIAGNOSTIC NPR THRU DOR BY DCSR<2-1>=<0,0> 
1777 ; POINT TIMEOUT_ROUTINE TO VECTOR 4 
1778 $ CALL MAP_PROGRAM_AREA 
1779 ; LET MMRO<O> = 1 TO ENABLE MMU 
1780 : LET MMR3<5S> = 1 TO ENABLE RELOCATION 
1781 ; LET KIPAR6 = #0 TO ACCESS THRU MAP REG.O 
1782 ; LET R1 = #140001 TO ACCESS THRU KIPA6 
1783 ; LET LO MAP REG. = #177777 
1784 : LET HI MAP REG. = #77 
1785 ; LET PATTERN = #125252 
1786 ’ CALL DIAGNOSTIC_DATA_ tbat PATTERN> 
1787 : LET MMRO<O> = #0 TO DISABLE MMU 
1788 ; IF @0 NE #125252 THEN 
1789 : . ERROR IN CARRY PROPOGATION 
1790 : ENDIF 
1791 : 
1792 ; ENDTST 
1793 : 
1794 Be ee ee ne enn nnn ee ee ne ee + +--+ ++ -- 
1795 
1796 Mweti iii ititit iii iti ttt titi titi tt ttttititt ttt ttt iti t TTT TTT TTTTTT 
;*TEST 16 CARRY PROPOGATION TEST 
Metititi titi ttititi itt itttitiit it ti ttiti ttt tT iT itTitTt TTT TTTTTTTtt 
006074 000004 TST16: SCOPE 
1797 
1798 006076 005737 001720 TST PMIS ; ANY PMI MEMORY? 
1799 006102 001470 BEQ TST1i7 :; IF NONE, EXIT TEST 
1800 006104 032737 000040 000052 BIT #BITOS ,a#52 ; UFD MODE ? 
1801 006112 001404 BEQ 1$ ; BRANCH, IF NOT 
1802 006114 032737 000040 177734 BIT #BITOS,KMCR ; 18 BIT MODE ? 
eo 006122 001060 BNE TST1i7 3; GO TO NEXT TEST, IF YES 
; 
te ; INITIALISE MMU AND DIAGNOSTIC REGISTERS 
i ; 
1807 006124 052737 000400 177730 18%: BIS #BITO8,DCSR ; SET DIAGNOSTIC MODE 
1808 006132 042737 177730 BIC #BITO2!BIT01,DCSR ; SELECT NPR THRU DDR 
1809 006140 004737 002276 JSR PC ,MAPPR ; ; REMAP PROGRAM AREA 
1810 006144 005237 177572 INC MMRO ; TURN ON MMU 
— 006150 052737 000040 172516 BIS #BITOS ,MMR3S ; ENABLE RELOCATION 
5 
amen ; ACCESS LOCATION O THRU RELOCATION REGISTERS 
1815 006156 005037 172354 CLR KIPAR6 ; CLEAR KIPARG6 
1816 006162 012701 140002 MOV #140002,R1 ; ACCESS THRU KIPARG6 
1817 006166 012737 177777 170200 MOV #177777,MAPLOO ; ALL ONE'S TO LO REG 














J4 


_———_——— a EE, TTT Ti, ———— se -s-ses—Llstser"-—"-,T-----w- —_——— en 
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SE 
T16 CARRY PROPOGATION TEST laa 
1818 006174 012737 000077 170202 MOV #77 ,MAPHOO ; ALL ONE'S TO HI REG 
1819 006202 012737 125252 001124 MOV #125252, $GDDAT ; THE PATTERN TO BE STORED 
1820 006219 005037 000000 CLR a0 ; CLEAR TEST LOCATION 
1821 006214 004737 002242 JSR PC ,ODOUT ; DO DATA OUT 
1822 006220 005037 177572 CLR MMRO ; DISABLE MMU 
1823 006224 042737 000040 172516 BIC #BITOS ,MMR3 ; AND MAP PING 
1824 006232 042737 000400 177730 BIC #BIT8,OCSR ! EXIT DIAGNOSTIC MODE 
1825 006240 022737 125252 000000 CMP #125252 , #0 DATA OUT OK? 
1826 006246 001406 BEQ TST1i7 33; IF YES, GO TO NEXT TEST 
1827 006250 013737 900000 001126 MOV a0, $BDDAT ; STORE FOR ERROR REPORTS 
1828 006256 005037 001122 CLR $BDADR ; ADDRESS 0 


sae 006262 104023 ERROR +23 ; IN CARRY PROPOGATION 


. LL LLL LLL LLBLBLL LLL LAL 


| K4 
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TEST - EXTENSIVE CARRY PROPOGATION TEST SEQ 0049 
1832 .SBTTL TEST - EXTENSIVE CARRY PROPOGATION TEST 
1834 ;* THIS TEST PERFORMS EXTENSIVE CHECKING OF CARRY PROPOGATION. FIRST 1K IS 
1835 ;* CHECKED IN WORD INCREMENTS, AFTER THAT EACH 1K UP TO 4K. DIAGNOSTIC DATI 
ts ;* CYCLES ARE PERFORMED AND A MAPPING REGISTER PAIR USED IS ALWAYS AT ALL 1’S. 
1838 ; BGNTST | 
1839 $ 
1840 ; IF UFD MODE AND KMCR<S> EQ #1 THEN 
1841 3 EXIT TEST CRELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 
1842 ; ENDIF 
1843 ; CALL MAP_PROGRAM_AREA 
1844 ; ENABLE MAPPING 
1845 ; INITIALISE ALL MAPPING REGISTERS TO POINT TO ALL 1’S 
1846 : - FOR 4K OF MEMORY 
1847 ; IF MEMORY ACCESSED LESS THEN ik 
1848 ; - « OO WORD INCREMENTS 
1849 ; . ELSE 
1850 ; . «+ OO 1K INCREMENTS 
1851 ; . ENDIF 
1852 ; . DO DATI INCREMENTS 
1853 ; . IF DDR NE TO LOCATION IN MEMORY THEN 
1854 ; . « ALU ERROR 
1855 ; . ENDIF 
1856 ; ENDDO 
1857 ; 
1858 ; ENDTST 
1859 
1860 PE PRE MOREE ASCE LI OT EEO PAGEL INE LT EIRA IN LE EREE OEE SRE S OPER ST SERENE Se oe 
1861 
1862 £ FEES SEKESSESSEKESRSERKRSESESESSRSESSESKEREEESEEREKESESEESEEOEEEEEERE 
;*TEST 17 EXTENSIVE CARRY PROPOGATION TEST 
£ FESS SEARS SESE SESSSESEEEEEREEESEEEEEEESEEEKESEEEES 
: 006264 000004 TST17: SCOPE 
186 
1864 266 005737 001720 TST PMIS ANY PMI MEMORY? 
1865 006272 001521 BEQ TST20 :; IF NONE, EXIT ‘TEST 
1866 006274 032737 000040 000052 BIT #BITOS ,a#s52 ; UFD MODE 
1867 006302 001404 BEQ 1$ ; IF NOT, BRANCH 
1868 006304 032737 000040 177734 BIT #BITOS,KMCR ; 18 BIT MODE 
oh. 006312 001111 BNE TST20 ;; IF 18 BIT MODE, DON’T DO THIS TEST 
eee ; INITIALISE MMU AND RELOCATION 
1 ; 
1873 006314 052737 000400 177730 i$: BIS #BITO8,DOCSR ; SET DIAGNOSTIC MODE 
1874 006322 042737 000006 177730 BIC #BITO2!:B8IT01,D0CSR ; SELECT NPR THRU DDR 
1875 006330 004737 002276 JSR PC, MAPPR ; REMAP PROGRAM AREA 
1876 006334 052737 172516 BIS #BITOS!BITO4,MMRS ; ENABLE RELOCATION AND 22BITS 
pe 4 006342 005237 177572 INC MMRO ; ENABLE MMU 
ba ; POINT ALL MAPPING REGISTERS TO ALL 1'S | 
H 
1881 006346 012701 170200 MOV #MAPLOO,R1 ; START WITH O 
1882 006352 012703 36 MOV #36 ,R3 ; DO FOR ALL REGISTERS 
1883 006356 012721 177776 2s: MOV $#177776,CR1)+ ; LOW MAP REGISTER 
1884 006362 012721 000077 MOV #77, CR1)+ ; HIGH MAP REGISTER 
1885 006366 077305 SOB » ; DO FOR ALL 


ee ae oe 
at . 


T17 
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PROPOGATION TEST 


172354 
140002 


002254 
001122 
000002 
172474 


172464 
177732 
160000 


172354 
144000 
140002 
000040 
000040 
000200 
177572 
000400 


001122 
177732 


001124 


001126 
001122 


172354 


172354 
172354 


177730 


ee ee RS AN 
A ET ES TT TS 


i 
; START WITH DATI ON A WORD BOUNDARY 


3$: 
4$: 


KIPAR6 
#140002 ,R1 
4$ 


CR1)- 
PC,ODIN 
R1,$BDADR 
#2, $BDADR 
—_— 


@$BDADR , $GDDAT 
DDR , $BDDAT 
#BIT15!B1T14!BIT13, $BDADR 


+23 


i 
; DECIDE WHICH CYCLE SHOULD OCCUR NEXT 


; 
7$: 


10$: 


KIPAR6 

10$ 
#144000 ,,R1 
3$ 


#140002 ,R1 
#40 , KIPARG6 


43 
#40 , KIPARG 
oo 


MMRO 
#BITS8,DCSR 


; ACCESS REGISTER PAIR O 
; START WITH O THRU KIPARG 


. DO IN WORD INCREMENTS 
. DO DATI 
. STORE JUST ACCESSED ADDRESS 


GET RID OF OVERFLOW 


. PROPER DATA? 
. IF EQUAL 


» BRANCH 
STORE RECEIVED DATA 


> STORE EXPECTED DATA 
. STRIP OF PAR BITS 
» ERROR IN RELOCATION 


. FIRST TIME 1K BOUNDARY? 
IF NOT, BRANCH 


. LESS THAN 1K DONE? 
IN WORD INCREMENT 


. ACCESS NEXT 1K 
. OVER 4K BOUNDARY? 
. IF NOT, GO DO DATI 


o 
- 
: 


E MMU 
; EXIT DIAGNOSTIC MODE 


SEQ 0050 


——— ae mm 


' 
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TEST - ALU TEST 


072227 


012701 
005037 
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001720 


177766 


140000 
172354 





177734 


177730 
177730 


172516 


M4 


-SBTTL TEST - ALU TEST 


;* THIS TEST PERFORMS EXTENSIVE CHECKING OF ALU BY USING BINARY COUNT PATTERN 
;* FOR EACH OF THE S ADDERS AT THE SAME TIME. HIGHEST LOCATIONS CHECKED 
3* CORRESPOND TO MAXIMUM AMOUNT OF MEMORY AVAILABLE. 


BGNTST 


IF UFO MODE AND KMCR<5S> EQ #1 THEN 
neko TEST CRELOCATION DOES NOT HAVE TO BE PERFORMED IN 18 BIT) 


CALL MAP_PROGRAM_AREA 

ENABLE MAPPING AND RELOCATION 

SIZE MEMORY AND MAKE UP MASK FOR NXM 

- FOR BINARY — PATTERNS THRU ALL FOR ADDERS 
MASK OUT NXM 
IF LESS THAN 32K THEN 

DO DATI 


SE 
DO DATO 
NOIF 


IF RESULT OF THE CYCLE IS NOT PROPER THEN 
ERROR IN ALU 


—<————————— EE 


§ fs FSSSESSEKSSSSKESSSSEESE SESE SEES EEEEEEEESEEEESEEEEEEEEEEEESEEEEEEEE 


;*TEST 20 ALU TEST 

5p RESO EE ESE EEE EEE EEEEEES EEE EEEEEESSESEEEESEEEEEEEEEEOEREEES 

TST20: SCOPE 
TST PMIS ; ANY 22-BIT PMI MEMORY? 
BEQ TST2i :; IF NONE, EXIT TEST 
BIT #BITOS,KMCR ; 18 BIT MODE 
BNE TST21i 3; IF 18 BIT MODE, DON'T DO THIS TEST 

; 

; INITIALISE MMU AND RELOCATION 

: 

1$: BIS #68I1T08 ,OCSR ; SET DIAGNOSTIC MODE 
BIC #BITO2!BIT01,0CSR ; SELECT NPR THRU DDR 
JSR PC ,MAPPR ; REMAP PROGRAM AREA 
BIS #BITOS!BITO4 ,MMR3 ; ENABLE RELOCATION AND 22BITS 
INC MMRO ; ENABLE MMU 
MOV PMIS ,R2 ; STORE SIZE OF PMI MEMORY 
MOV R2,$TMPO ; CREATE A PATTERN 
MOV #4200 ,R3 ; CONSTANT FOR PAR 
BIC R2,R3 ; MASK OUT NXM 
ASH #-10. »R2 ; FOR MAPHOO 

; 

; DO FOR ALL COMBINATIONS POSSIBLE, 4 BITS AT A TIME 

; 
MOV #140000 ,,R1 ; ACCESS THRU KIPARG6 
CLR KIPAR6 ; ACCESS REGISTER PAIR 0 





) 


KTJ11-6 
T20 


2017 007130 


DIAGNOSTIC 
ALU TEST 
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002254 
001162 
177732 
177732 


172200 
160000 


001124 
002242 
001162 
001124 


172132 
160000 


177572 
000400 


172354 
172214 


001126 


001124 
001122 


172354 
172140 


001126 
001122 


170200 
179202 
001122 
001122 
001122 
001162 


001162 


001162 


177730 


A ES A TS IO a 
nee ee eS + ee See Se ee 


23: JSR 


5$: JSR 


$TMP1, KIPARG 
DDR, @$BDADR 
10% 
DOR , $BDDAT 
@$BDADR, $GDDAT 
#81715!81T14!BIT13, $BDAOR 


PC ,ODOUT 

$TMP1 ,KIPAR6 
—_—— 

@$BDADR , $BDDAT 
#81T15!B1T14!B1T13, $8DADR 


oa 


‘ 
; DECIDE WHAT ACCESS NEXT 


; 
10$: CLR 


15%: 


253: 


KIPAR6 

#1042 ,R1 
#21042 ,MAPLOO 
MAPHOO 


$GDDAT 
oo 


MMRO 
#BIT8,DCSR 


; CLEAR MAP REGISTERS 


i 

; CLEAR STORAGE FOR PAR 
; FIRST ADDRESS USED 

; — PATTERN 


. IF SO, BRANCH 

. STORE RECIEVED DATA 
. STORE EXPECTED DATA 
. STRIP OF PAR BITS 


. IF SO, BRANCH 
. STORE EXPECTED DATA 
. STRIP OF PAR BITS 


. CLEAR PAR 

. START INCREMENTING 

. EVERY 4TH BIT 

. DON’T FORGET CARRY 

- FOR ALL REGISTERS 

. SAVE ADORESS ay 

- ADD UNIBUS MAP REG. 

. MAKE SURE KIPAR6 SELECTED 


. OVERFLOW FROM ADDITION? 
BRANCH 


. OVER AVAILABLE MEMORY? 

. IF NOT, OO ANOTHER DATO 
; DISABLE MMU 

; EXIT DIAGNOSTIC MODE 


me ee 


—_ 
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001720 


007616 
000400 
002276 
177572 
177734 
177740 









BS 


SEQ 0053 


.SBTTL TEST - MAIN MEMORY DISABLE 


;* THIS TEST WILL CHECK THAT A MAIN MEMORY RESPONSE IS DISABLED WHENEVER 
;* THE APPROPRIATE BITS IN THE KMCR REGISTER ARE SET. IN UFD MODE ONLY BITS SET 
;* IN KMCR WILL BE TESTED. IN ALL OTHER ENVIRONMENTS ALL BITS WILL BE TESTED. 


BGNTST 


CALL MAP_PROGRAM_AREA 

LET MMRO<O> = 1 TO ENABLE MMU 

LET R1 = KMCR_LOW_BYTE 

CLEAR BITS <5,6,7> IN R1 

IF KMNCR<S> EQ #1 THEN (18 BIT MODE) 
LET KIPAR6 = #7400 

ELSE - — BIT MODE) 

° T KIPAR6 = #177400 


ENoIF 

LET TEST_LOCATION = #140000 TO ACCESS THRU KIPARG6 
DO FOR RO FROM #1 TO Ri ALL PAGES SPECIFIED IN KHCR 
. LET R2 = BTEST_LOCATION 

. IF NO TIMEOUT THEN 

‘ wa KMCR<4-5> DOESNOT DISABLE MAIN MEMORY 


F 
LET KIPAR6 = KIPAR6 - #200 


ENDDO 

- NOT UFD MODE THEN 
SAVE KMCR 

CHECK KMCR<S-O> TO BE READ-WRITE 

LET KMCR<5-0> = @0 (ALL NON-UNIBUS MEMORY) 

LET KIPAR6 = #171600 

IF @#140000 DOES NOT TIMEOUT THEN 
LET KMCR<4-0> = <1000> TO DISABLE HIGHER THAN 28K 
IF @@140000 DOESNOT TIMEOUT THEN 

- SETTING KMCR<S-0> DOESNOT DISABLE MEMORY 


ENDIF 
RESTORE KMCR 
ENDIF 


Fs FSSSSSSSSSSSESSSSASSESSSSSSSSSSASSSSSSSSSSSSSSSSSRSSEEESSEESSSESESESE 


s*#TEST 21 MAIN MEMORY DISABLE 
§ PERSE ESSSSE REESE SESESESES HEHE RERESERERESETARSESEESAERESETEEE 
TST21: SCOPE 

TST PMIS ; ANY PMI MEMORY? 

BNE 20$ ; IF YES, 00 THE TEST 

JMP 100$ ; OTHERWISE EXIT TEST 

177730 20%: BIS #BITO8 ,OCSR ; STANDALONE 

JSR PC ,MAPPR ; REMAP PROGRAM AREA 

INC MMRO ; ENABLE MMU 

MOVB KMCR,R1 ; SAVE KMC 

BIC #177740,R1 ; Rl HAS #@ OF PAGES DISABLED 


; 
; GET THE HIGHEST NXM LOCATION 





KTJ11-B DIAGNOSTIC 
MAIN MEMORY DISABLE 


T21i 


032737 
000403 
012737 


105701 


012737 


032737 


012737 


oa 
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177734 
172354 
172354 


172354 


172516 


170202 
172516 


000004 
172354 
177734 


BIT #BITOS,KMCR ; 
BEQ i$ ; 
MOV #7400 , KIPAR6 ; 
BR 2$ ; 

i$: MOV #177400 ,KIPAR6 ; 

; 

; GO THRU ALL PAGES OF MEMORY DISABLED 

; 

2$: TSTB Ri ; 
BEQ 6$ ; 
MOV 945,094 ; 

3$: TST #140000 ; 
ERROR +25 : 
BR 5$ ; 

4$: TST CSP )+ ; 
TST (SP )+ $ 

5$: SUB #200 , KIPAR6 ; 
SOB R1,3$ ; 
MOV #TIMOUT , 204 ; 

; IN NON-UFD MODE, CHECK KMCR<5-0> 

3 

6$: BIT #BITOS ,a#S2 3 
BNE TST22 33; IF YES, 
MOV KMCR , $TMP1 3 
MOV . 3 

7$: MOVB R1,KMCR 3 
C R1,KMCR ; 
BEQ 8$ 3 
MOV Ri, $GDDAT 3 
BIS #BITO7, $GDDAT ; 
CMPB $GDDAT ,KMCR ; 
BEQ 8$ ; 
MOV R1, $GDDAT ; 
MOV KMCR , $BDDAT : 
MOV @KMCR , $BDADR ; 
MOV $TMPO,KMCR 8 
ERROR +11 ; 
BR l2$ 3 

8$: DEC Ri 3 
BGE 7$ : 


eee ieee 


18 BIT MODE? 
IF NOT, BRANCH 
NXM FOR 18 BITS 


GO DO IT 
NXM FOR 22 BITS 


ANY UNIBUS MEMORY? 

IF NO, BRANCH 

POINT TIMEOUT VECTOR TO PROGRAM 

. ACCESS THRU KIPAR6 

. KMCR<4-0> DOES NOT DISABLE MAIN MEMORY 


. ADJUST STACK 


. ACCESS NEXT LOWER PAGE 
’ DO FOR ALL PAGES IN KMCR 
RESTORE TIMEOUT VECTOR 


UFD MODE? 
GO TO NEXT TEST 
SAVE KMCR 

HIGHEST VALUE (32K OF MEMORY) 
. WRITE TO KMCR 


. IF SO, BRANCH 


. WAS THAT THE ONLY WRONG? 

. IF YES, BRANCH 

. IF NOT, RESTORE PATTERN WRITTEN 
. GET THE BAD DATA 

. GET THE ADDRESS OF THE KMCR 

. RESTORE RREGISTER 

. ERROR IN KMCR<5-0> 

. EXIT TEST ON ERROR 

. LAST LOCATION (0)? 

. IF NOT, BRANCH 


; 
; IN NON-UFD MODE, GO THRU THE PAGE JUST ABOVE 32K 


#BIT04 ,MMRS 
PMIS,R2 
MAPLOO 

#1 ,MAPHOO 
#BITOS ,.MMR3 
R1 

#10$ ,804 
#2000 , KIPAR6 
#67 ,KMCR 


; 
; DO A CPU CYCLE TO DISABLED MEMORY 





ENABLE 22-BIT 

STORE HIGHEST PAGE 
CLEAR MAP REG. 0 
POINTS TO 32K 

ENABLE MAPPING 

ADDRESS FOR DMA CYCLES 


| KTU11-8 


T2i 


DIAGNOSTIC 
MAIN MEMORY DISABLE 


007464 
007470 
007472 
007474 
007476 


007500 


DS 
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140000 


002254 
100000 


172354 
020000 


170202 
177734 
000040 


000200 


002266 
001162 
172516 
177572 
000400 


177730 


170200 
177734 
172354 
000004 
177734 


177730 


; 
9$: 


SEQ 0055 =O 


. ACCESS DISABLED MEMORY 
- IN DISABLING MEMORY THRU KMCR<4-0> 


. IN DMA MEMORY NOT DISABLED 


BRANCH 


. OTHERWISE, INCREMENT RAP REGISTER 


TST 8#140000 ; 
ERROR +25 $ 
BR 12$ ; 
10$: TST (SP)+ ; . RESTORE STACK 
TST (SP) 
: 
; DO A DMA DATI CYCLE TO DISABLED MEMORY 
; 
11$: JSR PC ,DDIN ; . DIAGNOSTIC DATI 
BIT #BIT15,DCSR ; . NXM SET? 
BNE l2$ ; . IF SET, BRANCH 
ERROR «25 : 
: 
; CHECK WHETHER ALL PAGES IN MEMORY VERIFIED 
; 
12$: CMP KIPARG ,R2 ; . IS IT IN MEMORY? 
BHIS 14$ ; . IF NOT, ay 
ADD #20000 , MAPLOO ; . ACCESS NEXT 4K 
BCC 13$ 8 IF DIDN'T EXCEED 32K, 
INC MAPHOO 5 
13$: DEC KMCR ; . ENABLE NEXT 4K OF ME 
BIT #BITOS,KMCR : ALL 128K DONE? 
BEQ 14$ 5 IF so, cl 
ADD #200 , KIPAR6 “> ACCESS NEXT 4K 
BR 9$ $ TRY TO DO IT 
14$: MOV #TIMOUT , a#4 ; RESTORE TIMEOUT VECTOR 
MOV $TMP1 ,KMCR ; RESTORE KMCR 
CLR MMR3 ; DISABLE 22-BIT MODE 
CLR MMRO ; DISABLE MMU 
_— BIC #BIT8,DCSR ; EXIT DIAGNOSTIC MODE 


_— ae we 


ee ee ee 


KTJ11-B8 DIAGNOSTIC 


TEST 


2196 


- CACHE PRESENCE 


Eo 
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007706 
001175 
013224 


-SBTTL TEST - CACHE PRESENCE 


;* THIS TEST WILL FIND OUT WHETHER THE CACHE IS PRESENT 


BGNTST 


LET KMCR<6>=#1 
IF KMCR<6> NE #1 THEN 
ws" NOT PRESENT OR NOT SEEN 


FF SESS SESS RES SESEEEREKESERSEREEEEEEREEEEEEESEEERESEEEEEEEEEEEE 


s*TEST 22 CACHE PRESENCE 
fp EERE AREER EERE EERE EERE REESE EEE EEE SEES EEEEEEEEEEEEEEEED OSES 
TST22: SCOPE 
TST PMIS ANY PMI MEMORY? 
BEQ TST23 3; IF NONE, EXIT TEST 
BIS #BITO6 ,KMCR ; SET CACHE ENABLE BIT 
BIT #BITO6 ,KMCR ; DID IT GET SET? 
BNE TST23 33 IF CACHE PRESENT, EXIT TEST 
TST $PASS ; FIRST PASS? 
BNE 1$ ; IF YES, SKIP PRINTOUT 
CMPB #APTENV, SENV ; IN APT ? 
BEQ i$ ; IF SO, SKIP PRINTOUT 
BIT #BITOS ,a#S2 ; UF ? 
NE 1$ ; IF YES, BRANCH 
TYPE »NOCAH ; TYPE NO CACHE MESSAGE 
TYPE » $CRLF ; 
1$: UBETST ; IF NO CACHE, SKIP ALL CACHE TSTS 
NOCAH: .ASCIZ / NO CACHE SEEN/ 
. EVEN 


' 


| KTJ11-8 DIAGNOSTIC 


TEST 


010112 


- me a ee 


rs 
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- CACHE DISABLED AND KMCR 


177734 
177734 
000177 
000040 


000400 





177730 
172516 


172516 
177734 
177734 
177734 


001126 
001124 
001124 


177734 
001160 
001161 
001126 
001124 
001124 
172516 


177730 


ee eae 


-SBTTL TEST 


- CACHE DISABLED AND KMCR 


;* THE STATUS BITS IN KMCR REGISTER ARE INITIALISED TO POWER UP 
;* CONDITIONS: THE VALID BITS ARE CLEARED, A IS THE NEXT AVAILABLE 
;* SET, FOLLOWED BY B, C, AND D. 


BGNTST 


;* THIS TEST WILL CHECK THAT WHENEVER THE DMA CACHE IS DISABLED 


- FOR MMR3<5>=0,1 WITH RELOCATION ENABLED AND DISABLED 


LET 
LET 
IF 


LET 


IF KMCR<14!13!12!11!10!9!> NE #1 THEN 


KMCR<6> = #0 TO DISABLE CACHE 
KMCR<8>=0 
KMCR<12!11!10!9> NE #0 T 


mae IN VALID BITS WITH CACHE DISABLED 


KMCR<8>=1 
_ IN LRU BITS SELECTION 


ESSERE SSS EEE EERE ESEEEEEEEEEEEEEESEESEEEEEEEEESEEE 


s*TEST 23 
fp RRR EEE EERE EEE EERE EEE EEE ES EE EEE EE EEE EEEEEEEEEEEEEEEEEEEEEERE EE 


TST23: 


i$: 
2$: 


3$: 


4$: 


SCOPE 


CACHE DISABLED AND KMCR 


»KMCR 
@81112!B1T11!161710:81T9, »KMCR 


KMCR , $BDDAT 

KMCR , $GDDAT 
@BITi2!BIT11:BIT10:B1T9, #GDDAT 
+ 

#BITO8 ,KMCR 

KMCR , $TMPO 

4 


KMCR, $BDDAT 
KMCR , $GDDAT 
#177, $GDDAT 
+26 


; (hiecatetmaaaal 
1 
#BIT8,DCSR 


ANY PMI MEMORY? 


3; IF NONE, EXIT TEST 


; SELECT DIAGNOSTIC MODE 
; FIRST DO WITH RELOCATION DISABLED 


; GO DO IT 


NOW DO WITH RELOCATION ENABLED 
MAKE SURE THAT CACHE IS DISABLED 
s READ VALID BITS FIRST 

ALL VALID BITS CLEAR? 

IF YES, BRANCH 

STORE KMCR 

STORE TO PRESERVE LOW BYTE 


; HIGH BYTE CLEAR 


VALID BITS NOT CLEAR WITH KMCR<6>=0 
NOW READ AVAILABILITY BITS 


KMCR 
STORE TO PRESERVE LOW BYTE 
HIGH BYTE SET 
AVAIL. BITS NOT SET WITH KMCR<6>=0 
DONE WITH RELOCATION ENABLED? 
IF NOT, BRANCH 


; EXIT DIAGNOSTIC MODE 


, 


KTJ11-B DIAGNOSTIC 


a 


TEST - AVAILABILITY OF SETS 





GS 
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-SBTTL TEST - AVAILABILITY OF SETS 


;* THIS TEST WILL CHECK KMCR<15-8>. 


;* INVALIDATED BY READING THE 8TH REGISTER OF THE SET. 


BGNTST 


ENABLE CACHE 

POINT R2 TO VALTBL FOR VALID BITS CKMCR<8>=0) 
POINT R3 TO TOPTBL FOR AVAILABILITY (CKMCR<8>=1) 
ENABLE RELOCATION 


- ALLOCATE SETS IN CACHE MAKING EACH OF THEM VALID AND GETTING MISSES 


as FOR ALL 4 SETS ALLOCATING THEM IN CACHE 


. ENDIF 
ENDDO 
READ A REGISTER FROM A VALID SET MAKING EACH OF THE SETS MOST RECENTLY USED 


LET KMCR<8>=0 
DO DMA READ ON OCTAL e- -w USING DIAGNOSTIC_DATA_IN 


IFB (R2)+ NE IN KMCR+1 THE 

. ERROR IN READING VALID BITS ON MISS 
ENDIF 

LET KMCR<8>=1 

IFB KMCR+1 NE CR3)+ T 

. ia READING AVAILABILITY BITS ON MISS 


- FOR ALL 4 SETS MAKING THEM MRU AND THEN MOST AVAILABLE 


READ THE LAST REGISTER FROM A SET MAKING EACH SET INVALID AND 


ENDDO 
ENDTST 


ES SS TS ae ge ee rs tn er cen es Bn 


LET KMCR<8>=<0 
DO DMA READ FROM 3RD LOCATION USING DIAGNOSTIC_DATA_IN 
IFB KMCR+i NE (R2)+ THEN 
ERROR IN READING VALID BITS ON HIT 
ENDIF 
LET KMCR<8>=1 
IFB KMCRei NE (R3)+ THEN 
—e« READING AVAILABILITY BITS ON HIT 


LET KMCR<8>=0 

DO DMA READ FROM 8TH LOCATION USING DIAGNOSTIC_DATA_IN 
IFB KMCR+1 NE (R2)+ THEN 

a IN READING VALID BITS INVALIDATING A SET 

LET KMCR<8>=1 

IFB KMCR+1 NE (R3)+ THEN 

TO READING AVAILABILITY BITS INVALIDATING A SET 


FIRST, EACH SET IN THE CACHE IS ALLOCATED, 
;# THEN EACH SET IS MADE MOST RECENTLY USED (MRU), AND THEN EACH SET IS 


MOST AVAILABLE 


SEQ 0058 


KTJ11-6 
T24 


, 
oe —-- 


DIAGNOSTIC 


AVAILABILITY OF 


010120 
010122 


010202 
010210 


010214 


013737 
105037 


012701 


112337 


a el 
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SETS 





177730 
177734 


172516 
170200 
170202 
001124 


177734 
001126 


177734 
001126 


177734 
001126 


177734 
001126 


H5 


SEQ 0059 


SESSA SESESEES EEE ESSE ESEKEREEERREEEESEESRESEEEEEEEEERES 


Piet b tp pi tip asi tit iti tit isi Lit iLL Li LiL LEL ELE LE TELL TET TTT ET ET 


s*TEST 24 AVAILABILITY OF SETS 
TST24: SCOPE 

TST PMIS 

BNE 20$ 

JMP 100$ 
205: BIS #BIT8,DCSR 

BIS #BITO6 ,KMCR 

MOV #VALTBL ,R2 


MOV #TOPTBL ,R3 
BIS #BITOS ,MMRS 
MOV #200 ,MAPLOO 
MOV #0 , MAPHOO 
MOV KMCR , $GDDAT 


CLRB $GDDAT +1 
; 

MOV #0,R1 
1$: JSR PC ,DDIN 


BIC #BITOS ,KMCR 
MOV KMCR , $BDDAT 


CMPB CR2)+, $BDDAT+1 
BEQ 2$ 
TSTB -(R2) 
MOVB CR2)+, $GDDAT+1 
ERROK +26 
2$: BIS #BITOS,KMCR 
MOV KMCR , $BDDAT 
CMPB (R3)+, $BDDAT+1 
BEQ 3$ 
TSTB -CR3) 
v6 CR3)+¢, $GODAT+1 
ERROR +26 
3$: ADD #20,R1 
CMP #100,R1 
BGT i$ 
; NOW READ 3RD AND THEN 8TH LOCATION FROM CACHE 
; 
MOV #4,R1 
4$: BIC #BITO8,KMCR 


JSR PC,ODIN 
MOV KMCR , $BDDAT 


CMPB CR2)+,$BDDAT+1 
BEQ 5$ 
TSTB -€R2) 
MOVB CR2)+,$GDDAT+1 
ERROR +26 

5$: BIS #BITO8,KMCR 
MOV KMCR , $BDDAT 
CMPB CR3)+,$BDDAT+1 
BEQ 6$ 
TSTB -C(R3) 
MOVB CR3)+,$GDDAT+1 





ANY PMI MEMORY? 

IF SOME, DO THE TEST 
OTHERWISE EXIT 

SELECT DIAGNOSTIC MODE 

ENABLE CACHE 

POINT TO VALID BITS 

POINT TO AVAILABILITY BITS 
ENABLE RELOCATION 

POINT MAPOO TO FIRST 8KE 

IN HIGH AND LOW MAP REGISTERS 
PRESERVE LOW BYTE 

CLEAR TO REPORT ERRORS, IF ANY 


; 
; ALLOCATE 4 SETS BY READING THEM THRU DIAGNOSTIC_DATA_IN 
ay READING MEMORY FROM 0 


ALLOCATE IN CACHE NEXT 8 WORDS 
READ VALID BITS 

STORE KMCR 

VALID BITS OK? 

IF YES, BRANCH 

GET THE PATTERN JUST WRITTEN 


. STORE HIGH BYTE 

. ERROR IN VALID BITS 

. READ AVAILABILITY BIT 
TORE KMCR 


— 
- AVAILABILITY BITS OK? 
. IF YES, BRANCH 

. GET THE PATTERN JUST WRITTEN 


STORE HIGH BYTE 


. ERROR IN AVAILABILITY BITS 


DO FOR NEXT OCTAL BOUNDARY 


. ALL 4 DONE? 
. IF NOT, BRANCH 


START WITH 3RD LOCATION A SET 


. READ VALID BITS 


. VALID BITS OK? 


IF YES, BRANCH 


. GET THE PATTERN JUST WRITTEN 
’ STORE HIGH BYTE 


ERROR IN VALID BITS 


. READ AVAILABILITY BIT 
. STORE KMCR 
’ AVAILABILITY BITS OK? 


IF YES, BRANC 


‘ H 
. GET THE PATTERN JUST WRITTEN 
. STORE HIGH BYTE 





KTJ11-B6 
T24 


— ee ee ll a 


DIAGNOSTIC 
AVAILABILITY OF 


010550 
010553 


010570 
010572 
010574 
010576 


15 
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SETS 


177734 


001126 


177734 
001126 


172516 
177734 
177730 


034 


6$: 


7$: 


8$: 


100$: 


+26 


#12,R1 
#BITO8,KMCR 
PC,ODIN 
KMCR , $BDDAT 
one 


3) 
CR3)+,$GDDAT+1 
+26 


#BITO8 ,KMCR 
KMCR , $BDDAT 
CR2)+,$BDDAT+1 
8$ 
-(R2) 
CR2)+,$GDDAT+1 
+26 


#BIT8,DCSR 
TST25 


. ERROR IN AVAILABILITY BITS 
. READ THE 8TH WORD 

. READ AVAILABILITY BIT 

. READ FROM CACHE 

. STORE KMCR 

. AVAILABILITY BITS OK? 

. IF YES, BRANCH 


. STORE HIGH BYTE 

. ERROR IN AVAILABILITY BITS 
. READ VALID BITS 

. STORE KMCR 

- VALID BITS OK? 

. IF YES, BRANCH 


. STORE HIGH BYTE 

. ERROR IN VALID BITS 

. DO FOR NEXT OCTAL BOUNDARY 
. ALL 4 DONE? 

. IF NOT, BRANCH 

; DISABLE RELOCATION 

; DISABLE CACHE 

; EXIT DIAGNOSTIC MODE 


:; EXIT TEST 


;* THIS TABLE HAS BITS KMCR<15-8> WHEN KMCR<8>=0 


;* KMCR<15>=0 FLAGGING CACHE MISS 


VALTBL: 


.BYTE 


-BYTE 
-BYTE 
-BYTE 
-BYTE 


20,30,34,3€ 


202,0 


ORDER FOR VALID: A, AB, ABC, ABCD 


NOW ALL VALID, HITS-MISSCWRITE TO I/0) 
HIT-MISS, A: VALID - NOT VALID 


HIT-MISS, B: VALID - NOT VALID 
HIT-MISS, C: VALID - NOT VALID 
HIT-MISS, 0: VALID - NOT VALID 


;* THIS TABLE HAS BITS KMCR<15-8> WHEN KMCR<8>=1 
;* AT FIRST NO HITS ARE RECORDED, THE COMMENT FIELD SHOWS SETS 


;* STARTING WITH LEAST AVAILABLE 


TOPTBL : 


EVEN 


.BYTE 
.BYTE 
.BYTE 
BYTE 


-BYTE 
BYTE 
BYTE 
BYTE 


27,201 


ADCB - 000111 
BADC - 100001 
CBAD - 110100 
DCBA - 111111 
NOW MISS-HITS 


->ADCB->DCBA - 000111,111111 
->BDCA->DCAB - 111001,011111 
->CDAB->DABC - 011110,001011 
->DABC->ABCD - 001011,000000 


. GET THE PATTERN JUST WRITTEN 


GET THE PATTERN JUST WRITTEN 


KTJ11-B DIAGNOSTIC MACRO YOS.02 Friday 29-Mar-85 12:53 rene 
TEST - DEALLOCATION OF SETS 


coee .SBTTL TEST - DEALLOCATION OF SETS 
2417 
o4 ;* THIS TEST CHECKS THAT EACH SET CAN BE MADE M 
ates 5 DEALLOCATED ON THE NEXT READ ON THE OCTAL — _ 
2420 
; DISABLE CACHE TO MAKE AM 
2421 7 Seam CES OST AVAILABLE 
2423 
ort 9 ALLOCATE SETS IN CACHE MAKING EACH OF THEM VALID AND GETTING MISSES 
2425 
5406 ; DO FOR ALL 4 SETS ALLOCATING THEM IN CACHE 
5407 ; . DO DMA READ ON OCTAL BOUNDARY USING DIAGNOST 
ro . ENDDO - THIS LEAVES A AS THE MOST AVAILABLE cris 
4 ’ 
— . TRY TO BRING A NEW LOCATIONS TO SET A 
2431 
$ DO DMA READ ON OCTAL 
2032 . LET KCR<B> = p. BOUNDARY FROM A FIFTH LOCATION TO SET A AGAIN 
5434 ; <15!12!11!10!9!> NE <0O,1,1,1,1> T 
pote A se DEALLOCATIONG LRU SET (A) -_ 
5437 IF KMCR<1S.9> NE 
4 5 <15-9> <0,0,0,0,1,1,1> THEN 
pot ; . ERROR DEALLOCATING LRU SET (A) 
2440 . — 
eae - TRY TO BRING A NEW LOCATIONS TO SET B 
2443 ; OUND 
2444 : DO DMA READ ON OCTAL 8 ARY FROM 1ST LOCATION TO SET B 
ee IF KMCR¢15!12!11!10!9!> NE <0 
44 ’ . * © ° :? < ehehebeoa? T 
oe aa DEALLOCATIONG LRU SET (B) _ 
a a ee 
; < -9> <0,1,0,0,0,0,1> THEN 
cone ; . ERROR DEALLOCATING LRU SET (8B) 
2452 . mer: 
ne . TRY TO BRING A NEW LOCATIONS TO SET C 
2455 OUND 
2456 ; DO DMA READ ON OCTAL 8B ARY FROM 1ST LOCATION TO SET C 
2457 oF s9ume35212711110199 NE 
° ; $12!11!10!9!> “,kidedek? F 
oone moe DEALLOCATIONG LRU SET (C) _— 
a eee 
' : <15-9> NE <0,1,1,0,1,0,0> THEN 
oe | ; ERROR DEALLOCATING LRU SET (C) 
5464 - ENDIF 
2465 _ TRY 
aeaa o TO BRING A NEW LOCATIONS TO SET D 
2467 
2468 ; DO DMA READ ON OCTAL BOUNDARY FROM 1ST LOCATION TO SET D 
2469 oF soiek<5330101130 g 
3470 ; $12!11!10!9!> NE <0,1,1,1,1> T 
3471 ae DEALLOCATIONG LRU SET (D) _ 








ee a 


KTJ11-B8 DIAGNOSTIC 
TEST - DEALLOCATION OF SETS 


000004 


005737 
001002 
000137 
052737 
052737 
052737 
012737 
012737 
013737 


012701 
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001720 
011310 


00 
177734 
000017 


000017 





177730 
172516 


001124 


177734 


001126 
001127 


001125 
177734 
001126 
001127 


001125 


177734 


001126 
001127 


Ei ae 


KS 


LET KMCR<8> = #1 


; 
; IF KMCR<15-9> NE <0O,1,1,1,1,1,1> THEN 
$ . ERROR DEALLOCATING LRU SET (D) 

; ENDIF 

; 

; ENDTST 

$ 


ee ae 


SEQ 0062 


§ FEES EREREKEEEERESEEEEREEEKEEESEEEEEESEEEEEE ES 


oe 3 @s es Ge Ge Ge Se Ge 


ANY PMI MEMORY? 

IF SOME, DO THE TEST 
OTHERWISE, EXIT 

SELECT DIAGNOSTIC MODE 

ENABLE RELOCATION 

ENABLE CACHE 

POINT MAPOO TO FIRST 8KB 

IN HIGH AND LOW MAP REGISTERS 
STORE LOW BYTE OF KMCR 


START WITH O IN SET A 

. ALLOCATE A SET 

. GET READY FOR NEXT SET 
. ALL 4 DONE? 

. IF NOT, BRANCH 


TRY TO DO DATI 

READ VALID BITS 
ALLOCATE IN CACHE 
STORE KMCR 

ALL SETS VALID? 

IF OK, BRANCH 

STORE pet PATTERN 
DEALLOCATING A 

READ AVAILABILITY BITS 
STORE KMCR 


» BRANCH 
STORE EXPECTED PATTERN 
DEALLOCATING A 


PREPARE FOR NEXT READ 
READ VALID BITS 


s;*TEST 25 DEALLOCATION OF SETS 
5 ERRATA RAE EERE ERE R AEE EE EEE EEEREE EEE EERE EEE EEE E EE EE EE 
TST25: SCOPE 
TST PMIS 
BNE 20$ 
JMP 100$ 
20$: BIS #BIT8,DCSR 
BIS #BITOS ,MMR3 
BIS #BITG6,KMCR 
MOV #200 ,MAPLOO 
MOV #0, MAPHOO 
MOV KMCR , $GDDAT 
; 
; ALLOCATE ALL SETS MAKING A MOST AVAILABLE 
; 
MOV #0,R1 
1$: JSR PC,ODIN 
ADD #20,R1 
CMP #100,R1 
BGT 1$ 
; TRY TO BRING A NEW SET TO A 
; 
MOV #100 ,R1 
BIC #BI7TO8 ,KMCR 
JSR PC ,ODIN 
MOV KMCR, $BDDAT 
CMPB #36, $BDDAT+1 
BEQ 2s 
MOVB #36, $GDDAT+1 
ERROR +26 
2s: BIS #BITOS8 ,.KMCR 
MOV KMCR , $8DDAT 
CMPB #17, $B8DDAT+1 
BEQ 3$ 
MOVB #17, $GDDAT+1 
ERROR +26 
; TRY TO BRING A NEW SET TO B 
3$: MOV #120,R1 
BIC #BITO8 .KMCR 
JSR PC,ODIN 


MOV KMCR , $BDDAT 
os 


READ INTO CACHE 
STORE KMCR 
ALL VALID? 
IF YES, BRANCH 





—_= 


T25 


011036 


9 011310 


KTJ11-68 DIAGNOSTIC 
DEALLOCATION OF 


112737 


x. 
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SETS 


001125 
177734 
001126 
001127 


001125 


177734 


001126 
001127 


001125 
177734 
001126 
001127 


001125 


177734 


001126 
001127 


001125 
177734 
001126 
177730 
001127 
001125 


4$: 


#36, $GDDAT+1 


+ 
BIS #BITO8 ,KMCR 
MOV KMCR , $BDDAT 


CMPB #103, $BDDAT+1 
BEQ 5$ 

MOVB #103, $GDDAT+1 
ERROR +26 


i 
; TRY TO BRING A NEW SET TO C 


‘ 
5$: 


6$: 


; 
7$: 


MOV #140,R1 
BIC #BITOS8 ,KMCR 


CMPB 036, $BDDAT+1 
BEQ 6$ 
MOVB #36, $GDDAT+1 
ERROR +26 


BIS #BITOS8 ,KMCR 
MOV KMCR , $BDDAT 


CMPB #151, $8DDAT+1 
BEQ 7$ 
MOVB #151, $GDDAT+1 
ERROR +26 

; 

; TRY TO BRING A NEW SET TO D 
MOV 60, 
BIC #BITOS ,KMCR 
JSR PC,0D0 
MOV KMCR , $BDDAT 
CMPB 036, $BDDAT+1 
BEQ 8$ 
MOVB #36, $GDDAT+1 
ERROR +2 


8$: 


100$: 


CMPB #177, $BDDAT+1 

BEG TST26 83 
MOVB #177, $GDDAT+1 
ERROR +26 


MRU:D 
IF OK, EXIT TEST 


STORE EXPECTED PATTERN 
DEALLOCATING B 

READ AVAILABILITY BITS 
STORE KMCR 


» BRANCH 
STORE EXPECTED PATTERN 
DEALLOCATING B 


PREPARE FOR NEXT READ 
READ VALID BITS 

READ INTO CACHE 
STORE KMCR 


BRANCH 

STORE EXPECTED PATTERN 

DEALLOCATING C 

READ AVAILABILITY BITS 
KMCR 


» BRANCH 
STORE EXPECTED PATTERN 
DEALLOCATING C 


PREPARE FOR NEXT READ 
READ VALID BITS 
READ INTO CACHE 


IF YES, BRANCH 

STORE EXPECTED PATTERN 
DEALLOCATING D 

READ AVAILABILITY BITS 
STORE KMCR 

EXIT DIAGNOSTIC MODE 


STORE EXPECTED PATTERN 
DEALLOCATING D 


| 


A 


KTJ11-8 DIAGNOSTIC 
TEST - CACHE WITH RELOCATION DISABLED 


011310 


011312 
011316 


M5 
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177734 
177730 
172516 
177734 
001124 


177734 
001126 
177734 
001126 
001127 
001125 


177734 
177730 


-SBTTL TEST - CACHE WITH RELOCATION DISABLED 


;* THIS TEST CHECKS THAT CACHE IS NOT OPERATIONAL WHEN RELOCATION IS 


;* DISABLED AND KMCR<15-9> ARE NOT INITIALIZED. 
BGNTST 


SAVE KMCR<15-9> FOR KMCR<8>=0,1 
LET MMR3<5>=80 TO DISABLE RELOCATION 
DO DMA READ USING DIAGNOSTIC_DATA_IN 
LET KMCR<8>=0 
IFB KMCR+1 NE SAVED THEN 

ERROR RELOCATION DISABLED STILL AFFECTS THE CACHE 


ENDIF 


LET KMCR<8>=1 
IFB KMCR+1 NE SAVED THEN 
ma RELOCATION DISABLED STILL AFFECTS THE CACHE 


§ ff SSSR EEEEESEEEEEEEEEEEEESEEEEEEEEEEEEES 


s*TEST 26 
jp ERR EEE EEE EEEEESOEEEEEEEEEEEEEEEEOOEEEOOOO8E8400000404604488% 


TST26: 


3$: 


4$: 


SCOPE 


CACHE WITH RELOCATION DISABLED 


Tel 

ne eaten EOS TE A 
KMCR , $BDDAT 

+ 

#BITOS ,KMCR 

KMCR , $BDDAT 

#177, $GDDAT+1 

26 


#BITO6 ,KMCR 
#BITOS8 ,OCSR 


; ANY 
;3 IF NONE, EXIT TEST 


PMI MEMORY? 


MAKE SURE THAT CACHE IS ENABLED 
SELECT DIAGNOSTIC MODE 

DISABLE RELOCATION 

READ VALID BITS FIRST 

STORE LOW BYTE 

CLEAR HIGH BYTE 

ALL VALID BITS CLEAR? 

IF YES, BRANCH 

STORE KMCR 

VALID BITS NOT CLEAR WITH KMCR<6>=0 
NOW READ AVAILABILITY BITS 

STORE KMCR 

ALL SET? 

IF YES, EXIT TEST 

EXPECTED PATTERN 

AVAIL. BITS NOT SET WITH KMCR<6>=0 
DISABLE CACHE 

EXIT DIAGNOSTIC MODE 


—_—_——_——— + 


' 
' 


| KTJ11-B DIAGNOSTIC 


TEST - WRITE CYCLES AND CACHE 


2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2626 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2636 
2639 
2640 
2641 
2642 
2643 
011452 000004 
2645 
2646 011454 005737 001720 
2647 O11 001002 
2648 011462 137 012134 
2649 011 052737 0004 
2650 011474 052737 000100 
2651 O11 052737 0 
2652 011510 012737 000200 
2653 011516 012737 
011 042737 
2655 011532 0135702 177734 
011536 052737 
2657 011544 015703 177734 
2658 
2659 
2660 
2661 011550 012701 000200 
2662 011554 013737 000400 
2663 011562 004737 002242 
2664 011566 042737 900400 
2665 011574 020237 177734 
2666 011600 001406 
2667 011602 010237 001124 
2668 011606 0157357 177734 
2669 011614 104026 
2670 011616 052737 000400 
2671 011624 020337 177734 
2672 011630 001406 





NS 
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-SBTTL TEST - WRITE CYCLES AND CACHE 


;* THIS TEST CHECKS THAT DMA WRITE CYCLES DON'T AFFECT THE CACHE, EXCEPT 
;* WRITE HITS WHICH INVALIDATE THE SET AND MAKE THIS SET THE MOST AVAILABLE. 


BGNTST 


DO FOR KMCR<8>=0,1 
ENDIF 


IF NOT A HIT THEN 
IF THE SET IS VALI 
ENDIF 


SAVE KMCR<15-9> FOR KMCR<8>=0,1 
DO DIAGNOSTIC_DATA_OUT WITH TAGS NOT CORRESPONDING TO ANY SETS 


IF KMCR<15-9> NE SAVED VALUES THEN 
ERROR WRITE CYCLES AFFECT THE CACHE 
ENDOO 
DO DIAGNOSTIC_DATA_OUT THAT CAUSES A HIT 
ERROR RECORDING HITS 


D OR NOT MOST AVAILABLE THEN 
ERROR IN LEAST RECENTLY USED LOGIC 


§ fs SSSSSSSSSSSSSSS SS SHS SSSSESSSESESSESSESESESEESEEEEESEEESEEEEEEEESEESESESESS 


WRITE CYCLES AND CACHE 


§ Ss SSSSSSSSSSSSSSSSSSSASESKSSSSSESSSSESSSSSE SEES SESE SESEESEESEESEEEESESSES 


s*#TEST 27 
TST27: SCOPE 
TST PMIS 
BNE 20$ 
JMP 00$ 
20$: BIS #6ITO8 ,.DCSR 


MOV 

BIC #BITO8 ,KMCR 
MOV & 

BIS #BITOS ,KMCR 
MOV ‘ 


; 
; ACCESS LOCATION NOT IN CACHE 


é 
MOV #200 ,R1 
MOV 89400, $GDDAT 
JSR PC ,DDOUT 
BIC oBITOS ,KMCR 
CMP R2,KMCR 
BEQ i$ 
HOV R2, $GDDAT 
MOV KMCR , $BDDAT 


ERROR +26 

1$: BIS #BITOS ,KMCR 
CMP R3,KMCR 
BEQ 2$ 


ANY PMI MEMORY? 

If SOME, DO THE TEST 
OTHERWISE EXIT 

SELECT DIAGNOSTIC MODE 
CACHE STILL ENABLED 


POINT MAPOO TO FIRST 8KB 

IN HIGH AND LOW MAP REGISTERS 
SELECT VALID BITS 

SAVE VALID BITS OF KMCR 
SELECT AVAILABILITY BITS 

SAVE AVAILABILITY BITS 


ACCESS ADORESS 

THE PATTERN TO BE WRITTEN 
DO DIAGNOSTIC DATA OUT 
SELECT VALID BITS 

KMCR CHANGED? 


WRITE MISSES AFFETS CACHE 
SELECT AVAILABILITY BITS 
KMCR CHANGED? 
IF OK, BRANCH 





SEQ 0065 


KTJ11-8 OIAGNOSTIC 
WRITE CYCLES AND CACHE 


T27 


—— 
= . 


0116352 
011636 
011644 


012134 


010337 
013737 
104026 
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001124 
177734 


001126 


177734 
177734 


001124 
177734 


001124 
001124 
001126 


177734 
177734 


001124 
001125 
001126 


001124 
001125 
000220 
177734 


001126 
177734 
001124 
001125 
001126 
177734 


172516 
177730 


$ 
; CHECK 


; 
2$: 


3$: 


4$: 


5$: 


6$: 


100$: 


MOV R3,$GDDAT 
MOV KMCR , $8DDAT 
ERROR +26 

THAT WRITE HIT INVALIDATES CACHE 
BIC #BITO6,KMCR 
BIS #BITO6,KMCR 
MOV RI 

JSR PC ,DDIN 

MOV #20,R1 

JSR PC ,ODIN 

CLR i 

MOV 80200, $GDDAT 
JSR PC ,DDOUT 

BIT #BIT15,KMCR 
BNE 3$ 

MOV KMCR , $GDDAT 
MOVB #363, $GDDAT 
MOV KMCR, $BDDAT 
ERROR +26 

BIC #BITOS8 ,.KMCR 
BIT #6IT12,KMCR 
BEQ 4$ 

MOV KMCR , $GDDAT 
MOVB #BITOS, $GDDAT+1 
MOV KMCR , $8DDAT 
ERROR +26 

MOV KMCR , $GDDAT 
MOVB $200, $GDDAT +1 
MOV 89220 ,88220 
BIT #6IT15,KMCR 
BNE 5$ 

MOV KMCR , $B8DDAT 
ERROR +26 

BIT #68IT11,KMCR 
BEQ 6$ 

MOV KMCR , $GDDAT 
BICB #BITO4!BITO3, $GODAT+1 
MOV KMCR , $BDDAT 
ERROR + 

BIC #BITO6 ,.KMCR 
BIC #BITOS ,MMRS 
BIC #BITO8 ,DCSR 





SEQ 0066 


EXPECTED PATTERN 
RECIEVED PATTERN 
WRITE MISSES AFFETS CACHE 


DISABLE CACHE 10 GET TO KNOW STATE 
ENABLE CACHE 
ADDRESS 0 
ALLOCATE CACHE SET A 
SS 20 


ADORE 

AND ALLOCATE SET B 

ACCESS SET A 

THE PATTERN TC BE WRITTEN 
— CACHE 


IT? 
IF YES, BRANCH 
PRESERVE LOW BYTE IF ERROR 
HIT, B LEAST AVAILABLE 
RECIEVED PATTERN 
WRITE HIT WAS NOT RECORDED 
READ VALID BITS 
A VALID? 
IF INVALIDATED, BRANCH 
PRESERVE LOW BYTE IF ERROR 
MISS, 68 VALIO 
RECIEVED PATTERN 
WRITE HIT DOES NOT INVALIDATE 
PRESERVE LOW BYTE IF ERROR 
HIT RECIEVED 
CPU WRITE TO SET B 
HIT? 
IF YES, BRANCH 
STORE KMCR 


HIT NOT RECORDED 

B STILL VALID? 

IF NOT, EXIT TEST 

IN CASE HIT WENT AWAY 

CLEAR ALL EXTRA 

RECIEVED PATTERN 

CPU WRITE DOES NOT INVALIDATE 
DISABLE CACHE 

AND MAPPING 

EXIT DIAGNOSTIC MODE 


ee Se ee 


| KTJ11-8 DIAGNOSTIC 
TEST - DMA READ WITH INDEX NOT ZERO 


. 
—- ~—- - 


012134 


012136 
012142 


C6 
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001720 





177730 
172516 
177734 
170200 
170202 


177734 
001124 
177734 


177734 
177734 


001126 
177734 


001126 


7 a en ee rhe ER EE Se Te 
EE EE ES AE ee em an wr a 


-SBTTL TEST - DMA READ WITH INDEX NOT ZERO 


;* THIS TEST i A DMA READ MISS DOES NOT AFFECT THE CACHE IF THE INDEX 


;* FIELD IS NOT ZER 
BGNTST 


DO FOR KMCR<8>=0,1 


SAVE KMCR<15-9> FOR KMCR<8>=0,1 
DO DIAGNOSTIC_DATA_IN FOR A LOCATION WITH NON-ZERO INDEX 


IF KMCR<15-9> NE SAVED THEN 
ERROR IN COMPARING INDEXES 


§ fs SSSSSSSSSSSSSASEKS ESSERE SEES EEE EEEEEEEEESEESEEEEEEEEEEEEEEEEEEED 
RO 


DMA READ WITH INDEX NOT ZE 


Ff SSSSSSSSSSSSSE ESSE SEES EEEEEEEEEEEEEESEEEEEEEEEEESDD 


:#TEST 30 

TST3O: SCOPE 
TST PMIS 
BEQ TST31 


; 
; ENABLE CACHE AND ALLOCATE SET A 
; 


BIS #BITO8,OCSR 
BIS #BITOS ,MMRS 
BIS #BITO6 ,KMCR 
MOV #200 , MAPL 
MOV #0, MAPHOO 
MOV #0,R1 


ANY 
;: IF NONE, EXIT TEST 


ee @* @e Ge Ge Ge Ge 


PMI MEMORY? 


SELECT DIAGNOSTIC MODE 

ENABLE RELOCATION 

ENABLE CACHE 

POINT MAPOO TO FIRST 8KB 

IN HIGH AND LOW MAP REGISTERS 
ALLOCATE 200-216 

IN CACHE 


3 
; TRY TO CHECK WHETHER NON-ZERO INDEX EFFECT CACHE 


BIC #BITOS ,KMCR 
MOV KMCR , $GDDAT 
BIS #BITOS , KMCR 
MOV KMCR, 
MOV #102 ,R1 
JSR PC ,DDIN 
BIC #B1T08, KMCR 
CMP $GDDAT ,.KMCR 
BEQ 1$ 
MOV KMCR , $BDDAT 
ERROR +26 

1$: BIS #BITOS8 ,KMCR 
CMP R3,KMCR 
BEQ 2$ 
MOV R3,$GDDAT 
MOV KMCR , $BDDAT 


+26 


SELECT VALID BITS 

SAVE VALID BITS OF KMCR 
SELECT AVAILABILITY BITS 
SAVE AVAILABILITY BITS 
TRY CACHING 102 

DO DIAGNOSTIC DATA IN 
SELECT VALID BITS 

KMCR CHANGED? 

IF NOT, BRANCH 

RECIEVED PATTERN 
NON-ZERO INDEX AFFECTS CACHE 
SELECT AVAILABILITY BITS 
KMCR CHANGED? 


IF NOT, EXIT TEST 
EXPECTED DATA 

RECIEVEED DATE 

NON-ZERO INDEX AFFECTS CACHE 


ee ee 


SEQ 0067 





i ead 
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SEQ 0068 
T30 DMA READ WITH INDEX NOT ZERO 
2773 012326 042737 000100 177734 2$: BIC #BITO6,KMCR ; DISABLE CACH 
2774 012334 042737 000040 172516 BIC #BITOS,MMRS ; AND MAPPING 
2775 012342 042737 000400 177730 BIC #BITO8,DCSR 3 ; EXIT DIAGNOSTIC MODE 


2776 


. 012350 
2824 012352 


2828 012372 
2829 012374 
2830 012402 
2831 012406 


| KTJ11-8 DIAGNOSTIC 
TEST - TAG REGISTERS 





- ee 


E6 
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-SBTTL TEST - TAG REGISTERS 


;* THIS 
;* ON 


TEST WILL AUTOSIZE MEMORY IN 128K WORDS. THEN DEPENDING 


THE AMOUNT OF MEMORY AVAILABLE, A PATTERN OF ALTERNATING 0’'S 


;* AND 1'S WILL BE CONSTRUCTED TO VERIFY THE TAG REGISTERS. 


BGNTST 


SAVE TIMEOUT VECTOR 
ENABLE MMU 
LET Ri = KIPARG6 
REPEAT TO CONSTRUCT A MASK FOR NXM FOR MAPHO1 
. LET R1 = R1 SHIFT.LEFT BY #1 
. LET RI = R1 «+ KIPARE 
UNTIL CARRY SET 
SWAP Ri 
LET R1 = R1 SHIFT.RIGHT BY #3 TO GET BITS<21-16> FROM <21-13> 
LET KMCR<6> = #1 TO ENABLE CACHE 
LET R2 = #TBLML FOR PATTERNS FOR LOW REGISTER 
LET R3 = #TBLMH FOR PATTERNS FOR HIGH REGISTER 
- FOR ALL 16 PATTERNS 
DO FOR 4 PATTERNS 
. LET MAPLOI = C(R2)+ 
LET MAPHO1 = CR3)+ 
. LET MAPHO1 = MAPHO1 CLEAR.BY R1 NOT TO GET NXM 
‘ DO DIAGNOSTIC_DATA_IN TO ALLOCATE TAG PATTERN 


MOVE POINTERS ks PATTERN TABLE TO PREVIOUS 4 WORDS 
ENABLE 22-BIT 
” FOR 4 PATTERNS 

LET MAPLO1 = (R2)+ 


LET MAPHO1 = (R3)+ 

LET MAPHO1 = MAPHO1 CLEAR.BY R1 NOT TO GET NXM 
DO DIAGNOTIC_DATA_IN FROM IN CACHE 

IF NOT A HIT THEN 

. ERROR IN TAG REGISTERS 


ENDDO 
DISABLE 22-BIT MMU 
NDDO 


£ FEES ESESSESESSS ESSERE SSS SEARS SEREKCESSE RES SES SAREE EEREESS 


;*TEST 31 TAG REGISTERS 
Wertttitittitiiittitittittitititiiitititiititiititititiittiit itt ty 
TST31: SCOPE 
001720 TST PMIS ; ANY PMI MEMORY? 
BNE 1$ ; YES 
012670 JMP 100$ ; IF NONE, EXIT TEST 
000040 177734 i168: BIT #BITOS,KMCR 18-BIT MODE ? 
BNE TST32 33; IF YES, EXIT TEST 
000400 177730 BIS #BITO8,DCSR ; SELECT DIAGNOSTIC MODE 
002276 JSR PC ,MAPPR ; REMAP PROGRAM AREA 
177572 INC MMRO ; ENABLE MMU 





Ce NR eee 





T31 


| KTJ11-B DIAGNOSTIC 


TAG REGISTERS 


012412 


012446 
844 012450 


012452 


012454 


012574 


012576 


052737 
022737 
001412 


000020 
000040 


001720 
001720 


177734 
017000 


000010 
000010 
000004 
020000 
170204 
170206 
001160 
002254 
100000 


177572 
000400 





172516 
001720 


177734 
177734 
177734 
172516 


170206 


170206 
177734 


177730 


4$: 


F6 
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eee 


SEQ 0070_~=C#S! 


; ENABLE 22-BIT 
; IF 2M PRESENT, ONLY 21ST MASKED 
; DON’T CONSTRUCT MASK 


; 
; IF LESS THEN 2M OF MEMORY, MAKE UP A MASK FOR MAP HIGH REGISTERS 


; 
; ALLOCATE DIFFERENT PATTERNS IN TAG REGISTERS 


; 
5$: 


6$: 
7$: 


; NOW INVALIDATE BY WRITING TO THE SAME LOCATIONS 


é 
8$: 


9$: 


10$: 


100$: 


BIS #BITO4 ,MMRS 
CMP #40,PMIS 

BEQ S$ 

CLC 

MOV PMIS,R1 

ROL 

BIS PMIS,R1 

BHIS 43 

SWAB R1 

ROR R1 

ROR R1 

BIC #BITO6,KMCR 
BIS #BITO6,.KMCR 
BIC #BITO8 ,KMCR 
BIS #BITOS ,MMR3 
MOV #TBLML ,R2 
MOV #TBLMH,RS 
MOV R1,$TMPO 

MOV #4 ,R4 

MOV #20000 ,R1 
MOV #4,R5 

MOV C(R2)+,MAPLOL 
MOV CR3)+,MAPHO1 
BIC $TMPO ,MAPHO1 
JSR PC,DDIN 

SOB RS,7% 

MOV KMCR ,R1 

COM R1 

BIT #17000 ,R1 
BEQ 8 

ERROR +27 

SUB #10,R2 

SUB #10,R3 

MOV #4,R5 

MOV #20000 ,R1 
MOV (R2)+,MAPLO1 
MOV (R3)+,MAPHOL 
BIC $TMPO,MAPHO1 
JSR PC ,ODIN 

BIT #BIT15,KMCR 
BNE 10$ 

ERROR +27 

SOB RS,9$ 

SOB R4,6$ 

CLR MMRO 

BIC #BIT08,DCSR 
BR TST32 





CLEAR CARRY 

SAVE KIPAR6 

. ROTATE LEFT Ri 

. AND ADD BIT AT FIRST POSITION 
. IF CARRY NOT SET, BRANCH 
<15-8><---><7-0> 

NOW GET ADDRESS BITS <21-16> 
FROM <21-14> 


DISABLE CACHE 

ENABLE CACHE 

MAKE SURE THAT VALID READ 
ENABLE MAPPING 

POINTER FOR LOW MAP PATTERNS 
POINTER FOR HIGH MAP PATTERNS 
SAVE THE MASK 

COUNTER FOR 16 PATTERNS 


- » MASK OUT NXM 

- » DO DIAGNOSTIC DATI 

. - DO FOR ALL 4 PATTERNS 

. STORE SETS VALID? 

- COMPLEMENT VALID BITS 

. THAT'S ALL VALID BITS 

. IF ALL SET BEFORE COM, BRANCH 
. NOT ALL VALID BITS SET 


. MOVE POINTER TO -4 
MOVE HIGH MAP POINTER TOO 


; . VALIDATE ALLOCATED PATTERNS 
:. POINTER TO MAP 1 


LOAD LOW MAP 


NXM 
DO DAIGN. DATA IN 
HIT? 


. . IF HIT, BRANCH 
. IN TAG REGISTERS 
. . DO FOR ALL 4 PATTERNS 
. REPEAT FOR ALL 16 PATTERNS 


; DISABLE MMU 


:3 EXIT TEST 





EXIT DIAGNOSTIC MODE 


KTJ11-B8 
T31 


————— a ee 
@ , 


DIAGNOSTIC 
TAG REGISTERS 


012672 


012770 


125240 
177760 


052520 
125240 
000000 
052520 
177760 
000000 


- ee ae 


G6 
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052520 
000000 
177760 
125240 


000000 
177760 
125240 
052520 


000000 
000077 
000052 
000025 


; 
; PATTERNS FOR LOW MAP REGISTER 


; 
TBLML : 


. WORD 


. WORD 


125240 ,52520,0,177760 
5$2520,0,177760, 125240 
0,177760,125240 ,52520 
177760, 125240,52520,0 


i 
; PATTERNS FOR HIGH MAP REGISTER 


$ 
TBLMH: 


. WORD 


S2,.25,0,77 
25,0,77,52 
0,77,52,25 
77,52,25,0 


FIRST PATTERN THRU 4 TAGS 
SECOND PATTERN 

THIRD 

FOURTH 


FIRST FOR HIGH MAP REGISTER 
SECOND 

THIRD 

FOURTH 


; 


me a ee re re 
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TEST - CACHE RAM BIT PATTERN TEST 

ae .-SBTTL TEST - CACHE RAM BIT PATTERN TEST 

2906 ;* THIS TEST IS DONE TO CHECK THE OPERATION OF 

2907 ;* THE CACHE RAM . BIT PATTERNS 0,177777,52525 

2908 ;* AND 125252 ARE WRITTEN TO ALL OF THE MEMORY 

2 ;* USED AND THEN VERIFIED 

29109 ’ 

2911 ; BGNTST 

2912 ; 

2913 ;* 

2914 ;* GO SET UP THE CACHE IMAGE TABLE 

2915 ;* 

2916 ; LET RO := #CTBLE 

2917 $ REPEAT 

2918 ; IF RO POINTS TO OCTAL BOUNDARY ADDRESS THEN 

2919 ; . WE HAVE FOUND THE BEGINNING OF THE TABLE 

2920 ; LSE 

2921 ; POINT RO TO THE NEXT ADDRESS 

2922 : . ENDIF 

oo ; UNTIL WE HAVE FOUND BEGINNING OF THE TABLE 
;* 

cone ;* SET UP BOARD FOR THE TRANSFERS 
;* 

2927 ; ENABLE UNIBUS MAPPING 

2928 ; ENABLE DIAGNOSTIC MODE 

2929 ; ENABLE CACHE 

ben ; DO FOR PATTERN := 0,177777,52525,125252 
;* 

2932 ;* INITIALIZE THE CACHE TABLE 

2933 ;* 

2934 ; DO FOR ALL OF THE CACHE TABLE 

2935 3 . WRITE PATTERN TO TABLE 

2936 ; NDDO 

2938 ;* ALLOCATE ALL THE CACHE 

2939 ;* 

2940 ; DO UNTIL ALL CACHE ALLOCATED 

2941 ; . DO A DIAGNOSTIC DATI NPR CYCLE (CON OCTAL BOUNDARY) 

2942 : ENDOO 

2943 ;* 

oo ;* CHECK THAT THE DATA GOT CACHED CORRECTLY 
;* | 

2946 ; . DO FOR ALL OF THE CACHE TABLE 

2947 ; . +. DO A DIAGNOSTIC DATI NPR CYCLE 

2948 8 . . IF ODOR NEQ PATTERN THEN 

2949 $ . « « ERROR IN CACHE RAM 

2950 ; - « ENDIF - 

2951 ; . ENDDO 

2952 $ ENDDO 

2953 ; 

2954 ; ENDTST 

2955 ; 

2956 Bo nn ee en en nn ne en en een eee een ee eeeee- 

2957 

2958 Wetititiititiititiittittitiititiititiititiititittitititiitit titi 
;*TEST 32 CACHE RAM BIT TEST 


FREESE SEREKEKEESEEEESERERESSESE SESE 


H6 


— eee oe eee 


SEQ@ 0072 


- rrr ee 


Se 


KTJ11-B8 DIAGNOSTIC 
CACHE RAM BIT TEST 


T32 


012772 


2959 012774 
013000 


13002 


013050 


013052 


013110 


990 013114 


013116 


013120 


013136 
013142 


004 013144 


013150 


013154 
013156 
013162 
013166 
013174 
pope be 


000004 
005737 
001511 


052737 
012700 


052737 
005037 
052737 
052737 
012700 
013701 


012702 
011021 
077202 


012702 


077305 


012703 
013702 


ee eee 
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001720 


000400 
002054 


177760 


002172 
000004 


000020 


000040 
170202 
000400 
000100 
001774 
002172 


000040 


002172 
000004 
170200 
002254 
000040 


002172 


170200 
002254 
100000 


177732 





177730 


172516 


177730 
177734 


177734 


SEQ 0073 


ANY PMI MEMORY? 


;; IF NONE, EXIT TEST 
; 
; FIND THE FIRST OCTAL BOUNDARY ADDRESS IN THE TABLE 


SELECT DIAGNOSTIC MODE 


GET POINTER TO THE START OF THE SPACE ALLOCATED FOR THE CA 


SAVE IT IN R1 FOR WORKING 

MASK IN THE LEAST SIGNIFICANT DIGIT 

IS THE ADDRESS ON AN OCTAL BOUNDARY ? 
YES, THEN GO SET UP THE TABLE ADDRESSES 
NO, THEN GET THE NEXT ADDRESS 

. GO CHECK IF IT FALLS ON AN OCTAL BOUNDARY 
GET POINTER TO THE OCTAL BOUNDARY TABLE 
SET UP THE LOOP COUNTER 

. GO PUT ADDRESS INTO THE TABLE 

. GET NEXT OCTAL BOUNDARY 

. FILL UP THE TABLE 7? 


ENABLE UNIBUS MAPPING 

CLEAR HIGH MAP REGISTER 

ENABLE DIAGNOSTIC MODE 

ENABLE THE CACHE 

GET POINTER TO THE CACHE PATTERN TABLE 
GET POINTER TO THE CACHE IMAGE TABLE 


; 
; INITIALIZE THE CACHE IMAGE TABLE TO CURRENT PATTERN 


. SET UP LOOP COUNTER 
. » MOVE PATTERN TO TABLE 
. » HAVE WE DONE IT 40 TIMES ? 


. SET UP MAP FOR DIAG NPR DATI CALL 
. GO DO A DIAGNOSTIC DATA IN CYCLE 
. HAVE WE DONE IT 4 TIMES ? 


. SET UP LOOP COUNTER 
. GET ADDRESS OF CACHE IMAGE TABLE 
(THIS WHOLE TABLE SHOULD BE CACHED) 
. USE ADDRESS 0 

. GET ADDRESS FPR DIAG. DATA IN CYCLE 
; A A DIAGNOSTIC DATA IN 


. HIT? 
. IF YES, BRANCH 
. OTHERWISE, ERROR 
DID IT GET STORED CORRECTLY ? 


TST32: SCOPE 
TST PMIS 
BEQ TST33 
BIS #BIT08,OCSR 
MOV #CTBLE,RO 

S$: MOV RO,R1 
BIC #177760,R1 
TST Ri 
BEQ 10$ 
TST CRO)+ 
BR $ 

10$: MOV #OBADR ,R2 
MOV R3 

12$: MOV RO, CR2)+ 
ADD #20,RO 
SOB R3,12$ 

i 

; INITIALIZE THE BOARD FOR THE TRANSFERS 
BIS #BITS , POMMRS 
CLR MAPHOO 
BIS #BIT&8,DCSR 
BIS #BIT6,KMCR 
MOV #PTRNI6,RO 

15$: MOV OBADR ,R1 

: 
MOV #40 ,R2 

20$: MOV CRO), CR1ID« 
SOB R2,20% 

; ALLOCATE ALL THE CACHE MEMORY AVAILABLE 
MOV #OBADR ,R2 
MOV #4 ,R3 
CLR Ri 

25$: MOV (R2)+,MAPLOO 
JSR PC,DDIN 
SOB R3,25$ 

; 

; CHECK THE CACHE RAM IMAGE PATTERN 
MOV #40 ,R3 
MOV OBADR ,R2 
CLR Ri 

30$: MOV R2,MAPLOO 
JSR PC ,ODIN 
BIT #BIT15,KMCR 
BNE 35$ 
ERROR +30 

35$: CMP DOR, CR2)+ 
BEQ 40$ 





" YES, THEN GO CHECK THE NEXT LOCATION 








_—_ anaes < 


—— we ee ee 
= . 


ee | 
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T32 CACHE RAM BIT TEST 
3215 013206 104030 ERROR +30 ; . NO,THEN ERROR IN CACHE RAM 
3016 013210 077316 40$: SOB R3,30$ ; . . HAVE WE CHECKED ALL THE RAM ? 
3017 013212 005720 TST CRO)-+ ; . ALL PATTERNS DONE? 
3018 013214 001333 BNE 15$ ; . IF NOT HAVE DONE, BRANCH 
ooee 013216 042737 000400 177730 BIC #BITO8,DCSR ; EXIT DIAGNOSTIC MODE 


—--- —_ _—_—_, 


| K6 
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aul 





A TS SA AN Sr me 
ee rer Ses 


SE 7 
TEST - BOOT ROMS TEST © 0075 
aoee .SBTTL TEST - BOOT ROMS TEST 
3024 ;* THIS TEST CHECKS FOR THE PRESENCE OF BOOT ROMS. IF THEY ARE FOUND, 
aoe ;* A CRC TEST IS PERFORMED FOR ALL THE ROM’S. 
: 
3027 ; BGNTST 
3028 ; 
3029 3 LET BCSR = BCSR SET.BY #BITOS TO ENABLE ACCESSING OF ROM’S 
3030 : LET PCR = #0 TO ACCESS FIRST PAGE 
3031 ; LET R4 = #173000 FOR STARTING ADDRESS 
3032 : LET $TMPO = #0 TO CLEAR COUNT FOR EMPTY ROM’S 
3033 ; DO FOR ALL 4 POSSIBLE ROMS 
3034 3 . JF CR4) EQ #161777 CEMPTY SOCKET) THEN 
3035 ; INCREMENT $TMPO TO COUNT EMPTY ROM’S 
3036 ; IDENTIFY POSITION OF EMPTY SOCKET 
3037 8 ELSE 
3038 ; LET Ri = #0 TO COUNT BYTES IN ROMS 
3039 ; DO FOR CACH LOCATION IN A ROM UNTILL R1=128 
3040 ; IF LOCATION 24 ACCESSED THEN 
3041 ; . IF CR4) NE #173000 THEN 
3042 ; ERROR IN LOCATION 24 
3043 ; ENDIF 
3044 ; INCREMENT Ri NOT TO DO BYTE 25 
3045 : ELSE 
3046 ; CALCULATE CRC FOR THE BYTE 
3047 ; NDIF 
3048 ; INCREMENT Ri FOR THE NEXT BYTE 
3049 ; - .»  ENDDO 
3050 ; ENDDO 
3051 F IF $TMPO NE #4 NOT ALL EMPTY 
3052 ; . TRY TO WRITE TO @#173000 IN DIAGNOSTIC MODE AND OUT 
3053 ; . IF NO TIMEOUT THEN 
3054 ; . «» ERROR WRITE ACCESS TO ROMS DOES NOT TIMEOUT 
3055 ; . ENDIF 
3056 : ENDIF 
3057 ; 
30 ; ENDTST 
3059 3 
3060 Br mem ee mmm nnn ee nn nn eee ne ee enn nnn eee +--+ --- 
3061 
3062 013224 UBETST: 
2 FEES SESE SESSE SESE KASS SESE SC EKESKEESESEERESEEEESEEEEEEE 
;*TEST 33 T ROMS TEST 
£ FEES AAS ERASERS, EKSESSESSSESRESESSERESEEESEESRERESEEESE 
013224 000004 TST33: SCOPE 
3063 
3064 3 
oes ; PREPARE TO DO CRC 
; 
3067 013226 042737 000410 177730 BIC #BITO8!:BITO3,DCSR ; LEAVE STANDALONE MODE AND ENABLE ROMS 
3068 013234 052737 000200 177520 BIS #BITO7,BCSR ; TO ENABLE BOOT ROMS 
3069 013242 005037 177522 CLR PCR ; TO READ PAGE 0 | 
3070 013246 012704 173000 MOV #173000 ,R4 ; R&4 POINTS TO FIRST ADDRESS 
aoe 013252 005037 001160 CLR $TMPO ; CLEAR EMPTY SOCKET COUNT 
: 
3073 ; DO FOR EACH POSSIBLE ROM 


KTJ11-B8 


T33 


DIAGNOSTIC 
BOOT ROMS TEST 


022704 
103475 
005001 
005005 


022714 


022701 
001007 
022724 
001401 
104031 


005201 
000137 


112403 
012702 


L6 
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173776 


161777 
001206 
000001 


000024 
173000 


013434 


000010 


120001 
120001 


000200 





1$: CMP $173776,R4 
BLO 11$ 
CLR Ri 
CLR RS 
; 
; CHECK FOR EMPTY SOCKETS AND EXIT IF SO 
: 
CMP #161777,CR4) 
BNE 3$ 
TST $PASS 
BNE 2$ 
001220 CMPB #APTENV, $ENV 
BEQ 2$ 
000052 BIT #BITOS ,a#S52 
BNE e$ 
MOV R4,-(CSP) 
TYPE » NROM 
TYPOS 
BYTE 6 
BYTE O 
TYPE » $CRLF 
2$: INC $TMPO 
ADD #200 ,R4 
BR $ 
3 
; IN EACH ROM CHECK LOCATION 24 AND DON’ 
; 
3$: CMP $24 ,R1 
BNE 5$ 
CMP #173000, (R4)- 
BEQ 4$ 
ERROR +31 
4$: INC Ri 
JMP 8$ 
; 
; DO CRC FOR EACH BYTE 
; 
5$: MOVB CR4)+,R3 
MOV #8. ,R2 
6$: CLC 
ROR RS 
ROR R3 
BYVC 7$ 
MOV @POLY,-CSP) 
BIC 5,(SP 
BIC #POLY,R5 
BIS (SP)-,R5S 
7$: SOB Re ,6$ 
8$: INC R1 
3 
; IF A ROM DONE, CHECK FOR O IN R5 
: 
CMP #128. ,R1 
BGT 3$ 
TST RS 
BEQ 10$ 
ERROR +31 





T 





A TT -——.- - 


SEQ 0076 


. ALL ROM'S DONE? 

. IF SO, EXIT 

. CLEAR COUNTER THRU A ROM 
. INITIALIZE PARTIAL CRC 


. EMPTY SOCKET? 
. IF NOT, BRANCH TO DO CRC 
. FIRST PASS? 
IF NOT, BRANCH 
IN APT MODE? 
- SO, SKIP PRINTOUT 
UFD MODE? 


. TYPE ASCII MESSAGE 

. CALL TYPE OUT ROUTINE 

. TYPE 6 DIGITS 

. SUPRESS LEADING 0'S 

. CARRIAGE RETURN 

. INCREMENT EMPTY SOCKET COUNT 
. PREPARE TO DO NEXT ROM 

. BRANCH TO DO NEXT ROM 


DO CRC ON IT 


- LOCATION 24 ACCESSED? 

. IF NO, GO DO CRC 

. PROPER DATA AT 24? 

. IF YES, BRANCH 

. WRONG DATA AT 24 

. INCREMENT FOR AN EXTRA BYTE 
- DO NOT DO CRC FOR 24 


. STORE CORRECT DATA IN R3 
: a OF BITS PER BYTE 
CLEAR CARRY 

. « LOW BIT PARTIAL TO CARRY 

. CARRY TO BYTE AND BYTE TO CARRY 
. « XOR OF PARIAL AND BYTE LOW BITS 
. » XOR POLY TO PARTIAL (4 INSTRUCTIONS) 

. NOT PARTIAL AND POLY 
. « NOT POLY AND PARTIAL 

. POLY XOR PARTIAL 
. . DECREMENT BIT COUNT AND CONTINUE 
. COUNT BYTES 


. ALL 64 WORDS DONE? 

. IF NOT, BRANCH 

. IF YES, CRC 0? 

. IF CRC = 0, BRANCH 

. CRC FOR A ROM NOT EQUAL TO O 





me 
a 
ol 


T33 


3163 


ee eee 
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BOOT ROMS TEST 
013452 000137 


013737 


M6 
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013256 


000004 
013502 
173000 


001160 
000004 


177730 


177730 
177730 
000004 


10$: 


JMP 


1$ 


; 
; TRY TO WRITE TO GET A TIMEOUT 


i 
11%: 
14$: 


15$: 
16%: 


20$: 


NROM: 


. DO FOR NEXT ROM 


ERRVEC, $TMPO ; SAVE TIMEOUT VECTOR 

15% ,ERRVEC ; POINT NEW TO PROGRAM 

84173000 ; TRY TO WRITE TO 1ST PAGE OF ROM 

Pe ; WRITE ACCESS TO ROM’S DIDN’T TIMEOUT 
H 

oops. ; RESTORE STACK 

* ; 

#BITOS ,DCSR ; OUT OF STANDALONE MODE? 

20% ; IF NOT, EXIT TEST 

KMCR ,R2 ; MAKE SURE THAT 

#177700 ,R2 ; AT LEAST SOME OF 

$77 ,R2 ; MEMORY PMI 

20$ ; IF NOT, BRANCH 

ee ; DO 1 MORE TIME IN STANDALONE MODE 
; 

#BITO3,DOCSR ; DISABLE UBA ROM RESPONSE 

625% ,ERRVEC ; POINT NEW TIMEOUT VECTOR 

84173000 ; READ BOOT ROM 

Pa ; DSCR<3> DIDN'T DISABLE USA ROM 
¢ 

ae ; RESTORE STACK 

+ 

#BITO8!BITO3,DCSR ; LEAVE STANDALONE MODE 

$TMPO, ERRVEC ; RESTORE STACK 

TST34 33 EXIT TEST 


-ASCIZ /ADDRESS OF EMPTY UBA SOCKET / 


. EVEN 


SEQ 0077 


LLL LLL LL LOL LOO AOC AA 


me 
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TEST - UNIBUS MEMORY TEST 


013650 


032737 


001473 


013701 
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000037 177734 


177734 





N6 


SEQ 0078 


-SBTTL TEST - UNIBUS MEMORY TEST 


;* THIS TEST READS KMCR<5-0> TO FIND OUT HOW MUCH UNIBUS MEMORY IS 
;* AVAILABLE. THEN ALTERNATING 0'S AND 1'S WILL BE WRITTEN AND READ 
3# FROM MEMORY. IF THE SYSTEM CONTAINS ALL UNIBUS MEMORY, THE FIRST 
;* 32K ARE NOT GOING TO TESTED. 


BGNTST 
IF KMCR<5S-0O> = <0-0> THEN NO UNIBUS MEMORY 


EXIT TEST 
ENDIF 


IF KMCR<S-O0> = <1-1> THEN ALL UNIBUS MEMORY 
- LET R1 = #1600 LOWER BOUNDARY FOR PAR 
‘ a R2 = #7600 HIGH BOUNDARY FOR PAR 
L 
LET R1 = COMPLEMENTCKMCR<4-0> ) 
LET R1 = Ril SHIFT.LEFT BY - TO GET LOWER BOUNDARY PAR 
LET R2 = #7600 HIGH BOUNDAR 
IF KMCR<5S> = #0 THEN 22 BIT MODE 
LET Ri = R1 SET.BY OBITIS!BIT14!B1T13!B1IT12 FOR 22 BITS 
. LET R2 = R2 SET.BY OBITIS!BIT14!B1IT13!81T12 
ENDIF 
ENDIF 
LET MMRO<O> = #1 TO ENABLE MMU 
REMAP PROGRAM AREA 
DO FOR KIPAR6 FROM Ri TO R2 
- DO FOR R4 FROM #140000 TO #157776 BY #2 FOR 4K THRU KIPARG6 
. LET CR4) = #125252 TO WRITE A PATTERN 
IF (R4) NE #125252 THEN 
ERROR IN UNIBUS MEMORY 


ENDIF 
LET (R4) = COMPLEMENT <(R4)> 
IF (R4) NE #52525 THEN 
_ IN UNIBUS MEMORY 


LLL LLL, 


ENDDO 
ENDDO 
DISABLE MMU 
ENOTST 


FF SSSSSSSSESSSSSSSSSSSESSSSSSSSSSSESSSESSSSSSSSSSSSESSESESSSESSESSESSESSS 


s#TEST 34 UNIBUS MEMORY TEST 
j SCREAEEESSSSESESESESERESESES SES ESSSES EERE SE EERES EEE ES ESE SEEEEEs 
TST34: SCOPE 


; 
; CHECK IF ALL NON-UNIBUS MEMORY 
; 


BIT 637 ,KMCR ; BITS <5-0> CLEAR? 
BEQ TST35 $3 IF YES, SKIP TEST 

; 

; CHECK IF ALL UNIBUS MEMORY 

: 
MOV KMCR,R1 ; SAVE KMCR 


———— rrr 





ES + 
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UNIBUS MEMORY TEST 


3219 0135666 
3220 013672 
3221 013676 


134 


013700 
013704 
013710 
013712 


013716 


042701 
022701 


001005 


012701 
012702 


000420 
004737 
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177700 
000077 


001600 
007600 


002456 


052525 


160000 


000200 
172354 


177572 


177734 


172516 


172354 


SEQ 0079 


BIC #177700,%1 ; LEAVE ONLY <5-0O> 
CMP 077 ,R1 ; BITS <5-O> ALL SET? 
BNE 1$ ; IF NOT, BRANCH 
MOV #1600,R1 ; DON’T TEST FIRST 32K 
MOV #7600 ,R2 ; 248KB MAXIMUM CONFIGURATION 
BR 2s ; GO DO TEST 
1$: JSR PC ,UMSIZ ; SIZE UNIBUS MEMORY 
; 
; ON RETURN R2 HAS PAR VALUE FOR UNIBUS MEMORY 
; 
MOV R2,R1 ; STORE LOWER SOUNDARY 
MOV #7600 ,R2 ; HIGHER BOUNDARY 
BIT #BITOS,KMCR ; 18 BIT MODE? 
BNE 2$ ; IF YES, GO DO TEST 
BIS #170000 ,R1 ; EXTEND TO 22 BITS 
BIS #170000 ,R2 ; FOR HIGHER BOUNDARY TOO 
BIS #BITO4 , MMRS ; ENABLE 22 BIT MAPPING 
: 
; NOW WRITE MEMORY WITH O1 PATTERN, VERIFY IT AND DO THE SAME FOR 10 PATTERN 
; 
2s: JSR PC ,MAPPR ; REMAP PROGRAM TO FIRST 32K 
INC MMRO ; ENABLE MMU 
MOV R1, KIPAR6 ; START AT LOWER BOUNDARY 
3$: MOV #140000 ,R4 ; . START 4K PAGE 
4$: MOV #125252, (R4) ; . . WRITE FIRST PATTERN 
CMP #125252, (R4) ; . . WRITEN OK? 
BEQ S$ ; . . IF OK, BRANCH 
ERROR +34 ; . . IN UNIBUS MEMORY 
S$: COM CR4) ; . . COMPLEMENT INITIAL PATTERN 
CMP #52525 ,(R4> ; . . NEW PATTERN OK? 
BEQ 6$ ; . . IF OK, BRANCH 
ERROR +34 ; IN UNIBUS MEMOR 
6$: TST CR4)- ; . . GET NEXT MEMORY LOCATION 
CMP #160000 ,R4 ; . . LAST ONE IN 4K PAGE? 
BHI as ; . . IF NOT, BRANCH 
ADD #200 , KIPAR6 ; . GET NEXT PAGE 
CMP R2 ,KIPAR6 3; . LAST PAGE DONE? 
BHI 3$ ; . IF NOT, BRANCH 
CLR MMRO ; DISABLE MMU 


.SBTTL UBE TESTS FOR THE UNIBUS ADAPTER BOARD 


;* 
;* THE FOLLOWING TESTS REQUIRE THE USE OF THE UNIBUS EXERCISER 


;* TO TEST OUT THE 
. UBE OTHER TESTS REQUIRE TWO 


UNIBUS yy .SOME TESTS REQUIRE ONE 


“ THE PROGRAM WILL AUTOSIZE TO SEE HOW MANY UBE'S ARE IN THE 


;* SYSTEM. DEPENDING ON THE RESUL 
;* TESTS WILL BE SELECTED OR DESELECTED. 
;* 


TS OF THE AUTOSIZING CERTAIN 


TT Tt) a 
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3326 014072 


000004 


042737 
042737 
005737 
001051 





C7 
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000400 177730 
000040 172516 
001206 


.SBTTL TEST - UBE AUTOSIZING ROUTINE 


7% 
3* THE FOLLOWING ROUTINE IS USED TO AUTOSIZE THE NUMBER OF 
;* UBE’'S PRESENT IN THE SYSTEM. 


;* 

6 

; BGNTST 

5 

: LET RO := #170000 ;1ST UBE ADDRESS 

; LET R2 := #510 31ST UBE VECTOR 

: LET R1 := #BE1DB ; TABLE FOR 1ST UBE 

; LET R3 := @BE1LVEC ;sLOCATION FOR FIRST UBE VECTOR 
; LET 4 ;:= #TOUT ;sSETUP TIMEOUT VECTOR 

; DO FOR RO := #170000 TO 170160 BY 20 

; TEST FOR CRO) ;sWILL TIMEOUT IF NOT THERE 

; IF TIMEOUT OCCURS THEN 

; . LET RO := RO + 20 ;GET NEXT UBE ADDRESS 

; LET R2 := R2 + 4 ;GET NEXT UBE VECTOR LOCATION 
; LET (SP) := #@CHECK 

. 

;* 

;* ASSIGN THE UBE ADDRESSES TO THE CURRENT UBE TABLE 

;* 

: DO FOR R4 := 1705 BY 1 

; -. “s LET (R1)+ := RO 

; - « «+ LET RO := ROe2 

: ENDDO 

; LET RO := RO + 4 ;POINT TO LAST DEVICE ADDRESS 
; LET CRi)+ := RO 

; LET RO := RO + 2 ;sPOINT RO TO NEXT UBE ADDRESSES 
;* 

;* ASSIGN UBE VECTORS TO CURRENT UBE TABLE 

;* 

; ‘ LET (R3)+ := R2 ;GET POINTER TO VECTOR ADDRESS 
; . LET R2 := R2 + 2 :GET VECTOR PSW LOCATION 

; ‘ LET (R3)+ := R2 ;GET POINTER TO VECTOR PSW 

; . LET R2 := R2 + 2 ;GET NEXT VECTOR ADDRESS 

; . IF WE HAVE FOUND TWO UBE'S THEN 

; . « ee wae 

; . « aa 

: . ENDIF 

; E 0 

; ENDTST 

: 


5 FERRARA E SEARS ERESSERERESSSESEEESER ESSE SARS ERERE REET 
s;*TEST 35 UNIBUS EXERCISER AUTOSIZING ROUTINE 
5 SEERA ERESEREEE EERE EREE SESSA SESE R EERE SE EERE REE EEE 


TST3S: SCOPE 


BIC #BITO8 ,OCSR ; MAKE SURE THAT OUT OF DIAGN. MODE 
BIC #BITOS ,MMRS ; MAPPING DISABLED 

TST ae$PASS ; IS THIS THE FIRST PASS ? 

BNE 10$ ; NO, THEN NO NEED TO SIZE AGAIN 











KTJ11-8 DIAGNOSTIC 
UNIBUS EXERCISER AUTOSIZING ROUTINE 


T35 


014074 
014100 


32 014104 


014110 


34 014116 


014120 


340 014122 


014126 
014132 
014134 


344 014140 


014144 


014146 
014152 


S2 014154 


014156 


54 014160 


014164 


56 014166 


362 014170 


014172 


364 014174 


014176 
014200 


014204 
014212 
014214 


014216 
014224 


382 014230 


014232 


022737 
001401 
000740 


012737 
005737 
001002 
000137 
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014122 


000005 


001722 


000002 


002266 
001722 


023122 





001722 


D7 


SEQ 0081 


; 
; INITIALIZE POINTERS FOR AUTO-SIZING 
; 


MOV #170000, RO ; GET ADDRESS OF FIRST POSSIBLE UBE 
MOV #510,R2 ; GET VECTOR OF FIRST POSSIBLE UBE 
MOV #BE 106 ,R1 ; TABLE HEADER FOR 1ST UBE 
MOV #1$,a04 ; SET UP TIMEOUT VECTOR 
100$: TST CRO) ; . IS THERE A UBE HERE 7? 
BR 2$ ; . YES,THEN BRANCH AROUND TOMEOUT ROUTINE 


; 
; TIMEOUT ROUTINE 
; 


. READJUST THE STACK 


1$: ADD #4 ,SP ; 
CMP RO, #170160 ; . HAVE WE CHECKED ALL THE ADDRESSES 
BEQ 10$ ; . YES THEN GO SEE IF WE FOUND ANY UBE’S 
ADD #20,RO ; . NO, THEN GET THE NEXT UBE ADDRESS 
ADD #4,R2 ; . . GET THE NEXT UBE VECTOR 
BR 100$ ; . GO SEE IF THE NEXT UBE IS THERE 


; ASSIGN UBE ADDRESSES TO THE CURRENT UBE TABLE 
‘ 


2s: MOV #5,R4 ; . SET UP LOOP COUNTER 
3$: MOV RO,CR1)+ ; . . ASSIGN AN ADDRESS TO THE POINTER 
TST O)- ; . GET THE NEXT ADDRESS 
SOB R4,3$ ; . ARE WE DONE ? NO THEN GO GET NEXT ADDRESS 
ADD #4,RO ; . POINT RO TO LAST UBE ADDRESS 
MOV RO,CR1)+ ; . PUT THE ADDRESS INTO THE POINTER TABLE 
TST CRO)+ ; . POINT RO TO NEXT UBE ADDRESS 


: ASSIGN UBE VECTORS TO CURRENT UBE TABLE 


MOV R2,(R1)+ ; . GET POINTER TO VECTOR ADDRESS 

TST CR2)+ ; . GET THE VECTOR PSW LOCATION 

MOV R2,CR1)-+ ; . GET POINTER TO VECTOR PSW 

TST CR2)- ; . GET THE NEXT UBE’S VECTOR ADDRESS 
INC UBECT ; . FLAG WE HAVE FOUND ANOTHER UBE 


: 
; SEE IF WE HAVE FOUND TWO UBE’'S 


CMP #2,UBECT ; . HAVE WE FOUND TWO UBE'S 
BEQ 10$ ; . GO DO THE UBE TESTS 
BR 100$ 


; 
; PROGRAM WILL CHECK IF ANY UBE'S WERE FOUND 


10$: MOV #TIMOUT , 804 ; RESTORE TIMEOUT VECTOR 
TST UBECT ; HAVE ANY UBE'S BEEN FOUND ? 
BNE TST36 ;; GO DO THE SELECTED TESTS FOR 1 UBE 
JMP UBEM ; SKIP ALL THE UBE TESTS 








014236 
014240 
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TEST - NPG ARBITRATION 


012737 


= a 


E/ 
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165710 
177777 
000040 
000000 
000340 


177776 
165724 
165720 
165714 


165674 
177776 


177776 
177776 


-SBTTL TEST - NPG ARBITRATION 


i 
;* THIS TEST CHECKS THAT A NPG CAN BE GRANTED AT ANY PRIORITY OF THE CPU. 


;* 


BGNTST 


- FOR PSW FROM #340 DOWNTO #0 BY #40 
LET @BE1CC = -1 TO DO 1 CYCLE 
LET @BE1BA = #$TMPO FOR THE ADDRESS 
LET @BE1CRi = #2041 TO DO 1 DATI 
WAIT FOR @BE1CR1<7>=1 READY 
IF @BE1CC EQ -1 THEN 

_ NPG DIDN'T HAPPEN 


FESS KSEE EEE SESEEEEEEKEEEREEEESEEEEEEEESEESEEEEEEE 


Fe FESS EKER ERS EERE EEE RE EEEEEEEEESESEEEESESEESEEEEEED 


;*TEST 36 NPG ARBITRATION 
TST36: SCOPE 
JSR PC ,IUBE 
MOV #340 ,PSW 
1$: MOV #-1,8BE1CC 
MOV #$TMPO,@BE1BA 
MOV #2041 ,@9BE1CR1i 
2s: TSTB aBEICR1 
BPL 2$ 
CMP #-1,3BE1CC 
BNE 3$ 
ERROR +32 
3$: SUB #40 ,PSW 
CMP #0 ,PSW 
BLE 


i$ 
MOV #340 ,PSW 


INITIALIZE THE UBE 
— PRIORITY 7 


. WAIT FOR READY 

CYCLE COUNT INCREMENTED? 
IF YES, BRANCH 

IF NO, ERROR IN NPG 
DECREMENT PRIORITY 

LAST ONE? 

IF NOT, BRANCH 


RESTORE PRIORITY 


me ee orl 


F7 
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SE 
TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY o Cees 
py .SBTTL TEST - NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
+ 
3426 ;* THIS TEST CHECKS THAT NO BUS REQUESTS ARE GOING TO BE HONORED 
oy ;* WHEN THE PROCESSOR HAS HIGHER PRIORITY THAN THE REQUESTING DEVICE. 
;* 
3429 ; 
3430 ; BGNTST 
3431 ; 
3432 ; SET UP @BELVEC TO POINT TO ERROR_CHECK_ROUTINE 
3433 ; SET UP @BE1IPSW TO #340 
3434 id 
Lt :* TRY TO DO BR7 WITH CPU PRIORITY AT 7 
;* 
3437 ; LET @BEICRI = #21 TO DO 1 DATI 
3438 ; LET PSW = #340 TO SET PRIORITY AT 7 
3439 ; DO “NOP” 
3440 ; IF INTERUPT THEN 
3441 ; . ERROR BG7 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
3442 ; ENDIF 
3443 ; 
3444 ;* 
oe ;* TRY TO DO BR6 WITH CPU PRIORITY AT 7 - 6 
3447 ; - FOR R3 FROM #340 DOWNTO #300 BY #40 
3448 ; LET @BEICRI = #11 TO DO 1 DATI 
3449 5 LET PSW = R3 TO CHANGE PRIORITY 
3450 ; DO “NOP” 
3451 : IF INTERRUPT THEN 
3452 ; . « ERROR BG6 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
3453 5 . ENDIF 
a4 ; ENDDO 
oe ny ; LET PSW = #340 FOR THE NEXT PART 
;* 
3457 ;* TRY TO DO BRS WITH CPU PRIORITY AT 7-5 
3458 ;* 
3459 : ” FOR R3 FROM #340 DOWNTO #240 BY #40 
3460 : LET @BE1ICRi = #5 TO DO 1 DATI 
3461 ; LET PSW = R3 TO CHANGE PRIORITY 
3462 : DO “NOP ” 
3463 ; IF INTERRUPT THEN 
3464 ; . ERROR BGS GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
3465 : ENDIF 
3466 ; ENDDO 
3467 ; LET PSW = #340 
3468 ;* 
‘ TRY TO DO BR4 WITH CPU PRIORITY AT 7 - 4 
3471 ; - FOR R3 FROM #340 DOWNTO #200 BY #40 
3472 ; LET @BE1CRi = #2003 TO DO 1 DATI 
3473 ; . LET PSW = R3 TO CHANGE PRIORITY 
3474 ; . DO “NOP” 
3475 ; . IF INTERRUPT THEN 
3476 ; . « ERROR BR4 GRANTED WITH PROCESSOR AT HIGHER PRIORITY 
3477 ; . ENDIF 
3478 : ENDDO 
3479 ; 
3480 ; 


| 
| 
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014544 
$33 014552 
3534 014556 
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000004 


004737 
012737 
012777 


012777 


012777 
012703 
012777 
010337 
000240 
000405 
005077 
062706 
104032 
162703 
020327 
002357 


012777 
012703 


012777 
012703 
012777 
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014402 
000021 


165602 
000004 


014444 
000340 
000011 
177776 


165540 
000004 


000040 
000300 


014520 
000340 
000005 
177776 


165464 
000004 
000040 
000240 


014574 
000340 
000003 





177776 
165636 


165626 
165612 


165574 
165554 


165520 
165500 


165444 
165424 


Pettitt it tt ttt tttttti tt tit titi ttt ttt tt ttt titi ttt tt Tit ttt tT ttt it, 
NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
Wh bddedbhihih hb bbbbbbhhbhhhppibip pith tipper epee tet titi ttt 


;*TEST 37 


TST37: SCOPE 


: 
; TRY TO DO 
7 


BR7 


1$: 


; 

; TRY TO DO BRE 
+ 
2$: 
3$: 


4$: 


5$: 
; 

; TRY TO DO BRS 
6$: 


7$: 


8$: 


; TRY TO DO BR4 


MOV 
MOV 


9$: MOV 


PC, IUBE ; INITIALIZE THE UBE 
#340 ,PSW ; SET CPU PRIORITY AT 7 
#340 , BBE1LPSW ; AT PRIORITY 7 
WITH CPU PRIORITY AT 7 
#1$,@BE1VEC ; POINT UBE VECTOR TO PROGRAM 
#21,@BE1CR1 ; BR7 WITH FUNO 

; JUST IN CASE 
2$ ; BRANCH AROUND IF NO INTERRUPT 
@BE1CRi ; CLEAR ANY OTHER REQUESTS 
#4 ,SP ; ADJUST STACK POINTER 
+32 ; BG7 GRANTED WITH CPU AT 7 
WITH CPU PRIORITY AT 7-6 
#4$ ,@BE1VEC ; POINT UBE VECTOR TO PROGRAM 
#340 ,R3 ; START WITH PRIORITY AT 7 
#11,@9BE1CR1 $ BR6 WITH FUNO 

»PSW ; . CHANGE PRIORITY 

; - JUST IN CASE OF INTERRUPS 
5$ ; . IF NO INTERRUPS, BRANCH 
@aBEICR1i ; . CLEAR ANY OTHER REQUESTS 
#4 ,SP ; . ADJUST STACK POINTER 
+32 ; . BG6 GRANTED WITH CPU AT 6-7 
#40 ,R3 ; . LOWER PRIORITY 
R3, #300 ; . LAST ONE TO CHECK? 
3$ ; . IF NOT, BRANCH 
WITH CPU PRIORITY AT 7-5 
#7$ ,@BE1VEC ; POINT UBE VECTOR TO PROGRAM 
$340 ,R3 ; START WITH PRIORITY AT 7 
#5,@BE1CRi ; . BRS WITH FUNO 
R3,PSW ; . CHANGE PRIORITY 

; . JUST IN CASE OF INTERRUPS 
8$ ; . IF NO INTERRUPS, BRANCH 
@BE1CR1 ; . CLEAR ANY OTHER REQUESTS 
#4 ,SP ; . ADJUST STACK POINTER 
+32 ; . BGS GRANTED WITH CPU AT 5-7 
#40 ,R3 ; LOWER PRICRITY 
R3,#240 ; . LAST ONE TO CHECK? 
6$ ; . IF NOT, BRANCH 
WITH CPU PRIORITY AT 7-4 
#10$ ,ABELIVEC ; POINT UBE VECTOR TO PROGRAM 
#340,R3 ; START WITH PRIORITY AT 7 
#3,@BE1CR1 ; . BR6E WITH FUNO 








SEQ 0084 


—_——_— 


— 
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137 NO BUS GRANTS WITH PROCESSOR AT HIGHER PRIORITY 
3535 014564 010337 177776 MOV R3,PSW ; . CHANGE PRIORITY 
3536 014570 000240 NOP ; . JUST IN CASE OF INTERRUPS 
3537 014572 000405 BR 11$ ; . IF NO INTERRUPS, BRANCH 
3538 014574 005077 165410 10$: CLR @BEICR1 ; . CLEAR ANY OTHER REQUESTS 
3539 014600 062706 000004 ADD #4, SP ; . ADJUST STACK POINTER 
3540 014604 104032 ERROR +32 ; . BG4 GRANTED WITH CPU AT 4-7 
3541 014606 162703 000040 11$: SUB #40 ,R3 ; . LOWER PRIORITY 
3542 014612 020327 000200 CMP R3, #200 ; . LAST ONE TO CHECK? 
3543 014616 002357 BGE 9$ ; . IF NOT, BRANCH 


3545 


| KTU11-8 DIAGNOSTIC 
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TEST - BR7-BR4 ARBITRATION 
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-SBTTL TEST - BR7-BR4 ARBITRATION 


;* THIS TEST CHECKS THAT BR7-BR4 INTERRUPTS CAN OCCUR WITH A PROCESSOR 
;* PRIORITY AT A LOWER LEVEL 


oe 
i 
3 


SET UP @BEIPSW TO #340 


;* 
;*# TRY TO DO BR7 WITH CPU PRIORITY AT 6 - O 
oa 


- FOR R3 FROM #300 DOWNTO #0 BY #40 


LET PSW = #340 

LET @BE1CR1 = #21 TO DO 1 DATI 
LET PSW = R3 TO CHANGE PRIORITY 
DO “NOP” 

IF NO INTERRUPT THEN 

a BG7 DOESN'T OCCUR 


ENDDO 


;* 
;* TRY TO DO BRE WITH CPU PRIORITY AT 5S - O 


;* 


ves FOR R3 ee a DOWNTO #0 BY #40 


LET PSW = 

LET @BE1CR1 = #11 TO DO 1 DATI 
LET PSW = R3 TO CHANGE PRIORITY 
DO “NOP” 

IF NO INTERUPT THEN 

. ERROR BG6 DOESN'T OCCUR 
ENDIF 


ENDDO 

* 

;* TRY TO DO BRS WITH CPU PRIORITY AT 4 - 0 
00 FOR R3 FROM #200 DOWNTO #0 BY #40 


LET PSW = #340 
LET @BE1CR1 = #5 TO DO 1 DATI 
LET +i R3 TO CHANGE PRIORITY 


IF NO INTERRUPT THEN 
ERROR BGS DOESN'T OCCUR 
ENDIF 


;* 
;* TRY TO DO BR4 WITH CPU PRIORITY AT 3 - O 





- FOR R3 FROM #140 DOWNTO #0 BY #40 


LET PSW = #340 

LET @BE1ICRi = #3 TO DO 1 DATI 
LET PSW = R3 TO CHANGE PRIORITY 
DO “NOP” 

IF NO INTERRUPT THEN 

ERROR BG4 DOESN'T OCCUR 


rrr rrr ee ee 


-——— 


ee ee a TTT TEE LT LL NR a ] 
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SE 7 
TEST - BR7-BR4 ARBITRATION Q 008 


3604 ; 
3605 ; ENDTST 
3606 ; 
3607 § Pee eee meme ne wenn see wc ween wrens ewe c cose coceereceescccsecesesece= 
3608 
3609 Meritt iiiiiititttititititttittitittitiitititiitititititiziiitiiit 
;*TEST 40 BR7-BR4 ARBITRATION 
me tTitiittititittitititititititiitititititiititiii titi it titiitititit 
_— 014620 000004 TST40: SCOPE 
3611 014622 004737 002502 JSR PC, IUBE ; INITIALIZE THE UBE 
ery 014626 012777 000340 165364 MOV #340, BBEIPSW ; AT PRIORITY 7 
; 
oe ; TRY TO DO BR7 WITH CPU PRIORITY AT 6-0 
; 
3616 014634 012777 014700 165354 MOV #2$,QaBE1VEC ; POINT UBE VECTOR TO PROGRAM 
3617 014642 012703 000300 MOV #300, ; “ WITH PRIORITY AT 6 
3618 014646 012737 000340 177776 i$: MOV #340 ,PSW ; RAISE PRIORITY TO 7 
3619 014654 012777 000021 165326 MOV #21 ,@BE1CR1i ; . BR7 WITH FUNO 
3620 014662 010337 177776 MOV »PSW ; . LOWER PRIORITY 
3621 014666 000240 NOP ; . JUST IN CASE OF INTERRUPS 
3622 014670 005077 165314 CLR SBE1CR1i ; . CLEAR ANY OTHER REQUESTS 
3623 014674 104032 ERROR +32 ; . BR7 NOT GRANTED WITH CPU AT 6-0 
3624 014676 000402 R 3$ ; . DON'T ADJUST STACK IF NO INTERRUPT 
3625 014700 062706 000004 2$: ADD #4 ,SP ; . ADJUST STACK POINTER 
36 014704 162703 000040 3$: SUB #40 ,R3 ; . LOWER PRIORITY 
3627 014710 022703 000000 CMP #0,R3 ; . LAST ONE TO CHECK? 
oes 014714 002354 BGE i$ ; . IF NOT, BRANCH 
; 
ao ; TRY TO DO BRE WITH CPU PRIORITY AT 5-0 
1 ; 
3632 014716 004737 002502 JSR , LUBE ; INITIALIZE THE UBE 
3633 014722 012777 014766 165266 MOV #5$ ,@BE1VEC ; POINT UBE VECTOR TO PROGRAM 
36 014730 012703 00024 MOV #240 ,R3 ; START WITH PRIORITY AT 5S 
3635 014734 012737 000340 177776 4%: MOV #340 ,PSW ; . RAISE PRIORITY TO 7 
36 014742 012777 000011 165240 MOV #11,@BE1CR1i ; . BRE WITH FUNO 
3637 014750 010337 177776 MOV »PSW ; . LOWER PRIORITY 
3638 014754 000240 NOP ; . JUST IN CASE OF INTERRUPS 
3639 014756 005077 165226 CLR @BE1CR1i ; . CLEAR ANY OTHER REQUESTS 
3640 014762 104032 ERROR +32 ; . BR6 NOT GRANTED WITH CPU AT 5-0 
3641 014764 02 BR 6$ ; . DON'T ADJUST STACK 
3642 014766 062706 000004 5$: ADD $4 ,SP ; . ADJUST STACK POINTER 
3643 014772 162703 000040 6$: SUB #40 ,R3 ; . LOWER PRIORITY 
3644 014776 022703 9000000 CMP #0 ,R3 ; . LAST ONE TO CHECK? 
3645 015002 002354 BGE 4$ ; . IF NOT, BRANCH 
3646 ; 
aa ; TRY TO DO BRS WITH CPU PRIORITY AT 4-0 
3649 015004 004737 002502 JSR PC, IUBE ; INITIALIZE THE UBE 
3650 015010 012777 015054 165200 MOV #8$ ,@BE1VEC ; POINT UBE VECTOR TO PROGRAM 
3651 015016 012703 000200 MOV ~R3 : aw! WITH PRIORITY AT 4 
36 15022 012737 000340 177776 7$: MOV #240,PSW ; RAISE PRIORITY TO 7 
3653 015030 012777 000005 165152 MOV #5, @BE1CR1 . . BRS WITH FUNO 
36 015036 010337 177776 MOV R3,PSW ; . LOWER PRIORITY 
3655 015042 000240 NOP ; . JUST IN CASE OF INTERRUPS 
36 015044 005077 165140 CLR AaBE1CR1i ; . CLEAR ANY OTHER REQUESTS 
| 3657 015050 104032 ERROR +32 ; . BRS NOT GRANTED WITH CPU AT 4-0 
' 





ee ——. queer EEE —EE——EEEE——EE—EEE—————E—————_—— 
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000402 
062706 
162703 
022703 
002354 
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000004 
000040 
000000 


002502 
015142 
000140 
000340 
000003 
177776 


165052 
000004 


000040 
000000 


165112 


177776 
165064 


8$: ADD 
9$: SUB 


; 
; TRY TO DO BR4 
; 


10$: MOV 


11$: ADD 
12$: SUB 


@BE1CR1 


#3, ,@BE1CR1 


KK 7 


SEQ 0088 


DON’T TOUCH STACK 


. ADJUST STACK POINTER 
. LOWER PRIORITY 

. LAST ONE TO CHECK? 

. IF NOT, BRANCH 


—- 


INITIALIZE THE UBE 
POINT UBE VECTOR TO PROGRAM 
START WITH PRIORITY AT 3 


. RAISE PRIORITY TO 7 


. BR4 WITH FUNO 


LOWER PRIORITY 


. JUST IN CASE OF INTERRUPS 


CLEAR ANY OTHER REQUESTS 


. BR4 NOT GRANTED WITH CPU AT 3-0 


DON’T ADJUST STACK 


. ADJUST STACK POINTER 


. IF NOT, BRANCH 


——— —-_ — 


i ainsi 
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015160 
015162 
015166 
015174 
015202 
015210 
015216 
015222 
015226 


015232 


5 
015310 


000004 
004737 
012777 
012777 
012737 
012737 
012701 
012702 
012703 


012737 


000340 
164744 
177772 
177776 


000004 
000004 
000040 


000140 
177772 





165014 
165016 
000240 
000242 


177776 


ee ae ee 
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TEST - ARBITRATION BETWEEN INTERRUPTS AND PIRQ’S 
-SBTTL TEST - ARBITRATION BETWEEN INTERRUPTS AND PIRQ’S 

;* THIS TEST “ye ~ ae PIRQ REQUESTS OVERRIDE INTERRUPT REQUESTS 


;* OF THE SAME LEVE 
;* 


w 
m 
an 
% 


PSW = #340 


ENDDO 


@BE1VEC AND PIRQVEC AND PRIORITY FOR BOTH 
= #20 FOR BG7 FROM UBE 

= #100000 FOR PIRQ7 

R3 FROM #300 DOWNTO #140 BY #40 


@BE1CR1 = R1 FOR INTERRUPT LEVEL 

@BE1CR1 = @BE1CR1 SET.BY #1 TO DO 1 DATI 
PIRQ = PIRQ@ SET.BY R2 FOR PIRQ 
T PSW = R3 TO CHANGE PRIORITY 
WAIT FOR INTERRUP 
IF PIRQ INTERRUPT DION’T HAPPEN OR SBE1CC NE -1 THEN 
. ERROR IN ARBITRATION SETWEEN PIRQ'S AND INTERRUPTS 


ENOIF 
LET R1 = Ri SHIFT RIGHT 1 
LET R2 = R2 SHIFT RIGHT 1 


LEVEL 
T 


$f SEES ESSE ESSE SESE ESEEEEEEEEESEEEEEESEEEEEEEEEEEEEE 


s*TEST 41 


ARBITRATION BETWEEN INTERRUPTS AND PIRQ’S | 


£ FEES ESE EEE EESEEESESEEEESEEEEEEEEEEEEEEEEEEEEEHESEESEOE 


STORE FOR PIRQ 7 


TST41: SCOPE 
JSR PC, IUBE ; INITIALIZE THE UBE 
MOV #2$,8BE1CR1 ; POINT UBE VECTOR TO PROGRAM 
MOV #340 , @BBE1PSW ; AT PRIORITY 7 
MOV #3$ ,PIRQVEC ; POINT PIR@ VECTOR TO PROGRAM 
MOV #340 ,8#242 . ; AT PRIORITY 7 
MOV #20 ,R1 ; STORE FOR BR7 
; 
: 


START WITH PRIORITY 6 


; DO ARBITRATION FOR LEVEL 7-4 


® 

1$: MOV $340 ,PSW 
MOV R1,@BE1CRi 
MOV 2,PIRQ 
MOV R3,PSW 
WAIT 

2s: ADD $4 ,SP 
ERROR +32 
BR 4$ 

3$: ADD $4 ,SP 

4$: ROR Ri 
ROR R2 
SUB #40 ,R3 
CMP #140,R3 
BNE 1$ 
CLR PIRQ 


. START WITH PRIORITY 7 
; . CHANGE UBE PRIORITY 
. CHANGE PIR@ PRIORITY 


. 

+ 

e 

$s 

; | PIRQ’S DON'T TAKE PRIORITY 
; | DON'T CLEAN UP STACK TWICE 
s 
; 

; 

° 

* 

: 


. ADJUST PIRQ'S 
. LOWER FOR CPU PRIORITY 
. PRIORITY 3? 
; . BRANCH IF NOT YET 
CLEAR ANY REQUESTS 





SEQ 0089 


i 
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015314 
3771 015316 
5324 


3 

3786 015372 
3787 015400 
3788 015404 
3789 015406 
3790 015412 


000004 
022737 


012703 
012701 
012777 
012777 
012777 
012777 


012737 
010177 


006001 
010177 
052777 


ee ee ee 
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001722 


164646 
164642 
164652 
164646 


177776 


164570 


-SBTTL TEST - ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 


;* THIS TEST CHECKS THAT WHEN TWO INTERRUPTS FROM DIFFERENT UBE'S 

7* COME IN AT THE SAME TIME, THE BUS IS GRANTED TO THE REQUEST WITH HIGHER 
;* PRIORITY. 

;* 


BGNTST 


IF UBECT NE #2 THEN THERE'S NO 2ND UBE 
EXIT TEST 
ENDIF 


SET UP VECTORS AND Neg FOR BOTH UBE’S 

LET R1 = #20 FOR BR7 

- 3 TIMES FOR B8G7-BG6, BG6-BGS5, ~" BG4 
LET PSW = #340 FOR PRIORITY 7 
LET @BE1CR1 = Ri 
LET R1 = Ri SHIFT RIGHT 1 
LET @BE2CR1 = R1 TO SET PRIORITY OF 2ND UBE 
LET @SIMLGO = #1 TO DO SIMULTANEOUS “GO” 
LET PSW = #140 TO LOWER PRIORITY FOR INTERRUPTS 
WAIT FOR INTERRUPTS 
IF INTERRUPTS FROM 1ST HAPPENED AFTER 2ND THEN 
. ERROR IN BR ARBITRATION 

. ENDIF 

ENDOO 


5 ERE REE EEE EEE EEE SESE SE EEEESEEEEEEEEEEEEEEEEEEEEEEESEEEEEEE EES 
s*TEST 42 ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 
5 REESE EEE EEE EEE EE EEE EEE OSES EEESEEE ESSENSE EEE EEEEEEEEEEEEES 


TST42: 


; 2 UBE’S? 
EXIT, IF NO 


BNE TST43 33 
; INITIALIZE THE UBE 


; 
; INITIAL SETUP 


; 
START AT PRIORITY 6 


MOV #20,R1i ; UBE AT LEVEL 7 

MOV #BE1SV,@BE1VEC ; POINT UBE1 < TO PROGRAM 
MOV $340, 8BE1PSW ; AT PRIORITY 7 

MOV #BE2SV , BBE2VEC ; POINT UBE2 VECTOR TO PROGRAM 
MOV #340, BBE2PSW ; AT PRIORITY 7 


; ARBITRATE BETWEEN 2 INTERRUPTS OF DIFFERENT LEVEL 


; 

1$: MOV #340 ,PSW ; . RAISE PRIORITY TO 7 
MOV R1,@BE1CR1i ; . HIGHER PRIORITY TO UBE1 
ROR R1 ; . GET LOWER PRIORITY 
MOV R1,@BE2CR1 ; . LOWER PRIORITY TO UBE2 
BIS #BITOO, BBEICR1 ; . SET GO BIT OF UBE @1 








| N7 
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142 ARBITRATION BETWEEN INTERRUPTS FROM 2 UBE 


3791 015420 052777 000001 164602 BIS #81T00, BBE2CR1 ; . SET GO BIT OF UBE #2 

3792 015426 0103537 177776 MOV R3,PSW ; . LOWER CPU PRIORITY 

3793 015432 000240 NOP ; . GIVE UBE TIME TO INTERRUPT 
3794 015434 000240 NOP ; 

3795 015436 000240 NOP ; 

3796 015440 005737 001724 TST BEL INT ; . DID UBE1 INTERRUPT 

3797 015444 001002 BNE S$ ; . YES, THEN GO MAKE SURE UBE2 DIDN'T 
3796 015446 104032 ERROR +32 ; . LOWER ORDER INTERRUPTS HAPPNE BEF 
3799 015450 000404 BR 10% ; . GO SEE IF WE ARE DONE 

3800 015452 005737 001726 S$: TST BE2INT ; . DID UBE2 INTERRUPT 

3801 015456 001401 BEQ 10$ ; . NO, THEN GO SEE IF WE ARE DONE 
3802 015460 104032 ERROR +32 ; . YES, THEN ERROR IN ARBITRATION 
3603 015462 005037 001724 10$: CLR BE1LINT ; . INITIALIZE INTERRUPT FLAGS 
3804 015466 005037 001726 CLR BE2INT ; 

3605 015472 162703 000040 SUB 640 ,R3 ; . DO THE NEXT LEVEL 

3806 015476 022703 000100 CMP #100,R3 ; . CPU AT 2 (LAST ONE)? 

3807 015502 001333 BNE 1% 3; . BRANCH IF NOT YET 

3608 015504 005077 164522 CLR @BE2CLR ; CLEAR ERRORS ON 2ND UBE 

. 015510 000420 BR TST43 33 GO TO NEXT TEST 

3611 015512 012777 900000 164510 BE1SV: MOV #0,8BE2CR1 ; CLEAR PENDING UBE @2 INTERRUPTS 
3812 015520 005237 001724 INC BELINT ; SET BE1 INTERRUPT FLAG 

38)3 015524 005037 001726 CLR BE2INT s CLEAR BE2 INTERRUPT FLAG 

oes 015530 000002 RTI 

3616 015532 012777 900000 164450 BE2SV: MOV #0, @BE1CR1 ; CLEAR PENDING UBE #1 INTERRUPTS 
38617 015540 005237 001726 INC BE2INT ; SET BE2 INTERRUPT FLAG 

3818 015544 005037 001724 CLR BELINT ; CLEAR BE1 INTERRUPT FLAG 

3819 915550 000002 RTI 


eee 
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TEST - POWER DOWN TEST 


SEQ 0092 


- 


oo .SBTTL TEST - POWER DOWN TEST 
3824 3* THIS TEST a os THAT POWER DOWN CYCLE CAN BE INVOKED FROM THE 
3825 ;* UNIBUS SIDE OF UBA. IT WILL RUN ONLY IF POWER UP OPTION 11 
a ;* IS SELECTED CTRAP THRU 24/26) IN THE EAROM ON CPU BOARD. 
1* 
3828 ; 
3829 ; BGNTST 
3830 ; 
3831 : LET BCSR<6,5>=<0,1> TO ACCESS EAROM 
3832 : IF @0165002<7,6> NE <1,1> FOR POWER UP CODE OO THEN 
3833 ; EXIT i TEST 
3834 : ENDIF 
3835 : SAVE PWRVEC 
3836 : POINT PWRVEC TO PROGAM AREA 
3837 : LET @BE1CR2<4> = #1 
3838 ; F NO TRAP TO 24 THEN 
3839 : ERROR EXECUTING POWER DOWN THRU UNIBUS 
3840 3 ENDIF 
3841 : LET @BE1CR2<4> = #0 FOR POWER UP 
3842 : RESTORE PWRVEC 
3843 : 
3844 ; ENDTST 
3845 : 
3846 Gn ee en ne enn en nn ne nnn nee 
3847 
3848 Re ee renanonocnonnonenoncnoocee 
;*#TEST 43 R DOWN TEST 
eo TR dk. 
. 015552 000004 T5143: SCOPE 
oore . RESTRICTIONS ON RUNNING THIS TEST 
1 ; 
3852 015554 005737 001206 TST $PASS FIRST PASS 
3853 015560 001076 BNE TST44 3:I1F NOT iST PASS. DON'T DO IT 
3854 015562 032737 000040 000052 BIT #BITOS .aes2 D MODE? 
3855 015570 001072 BNE TST44 3;s;EXIT TEST, IF 50 
3856 015572 122737 000001 001220 SAPTENV, SENV ; APT? 
3857 015600 001466 BEQ TST44 ::EXIT TEST IF APT 
3858 015602 032737 000010 177524 BIT #BITO3 ,.80177524 ; FORCED CONSOLE MODE? 
3859 015610 001062 BNE 4g ;3IF YES, EXIT TEST 
3860 015612 042737 000100 177520 BIC BITO6 ,BCSR ; ENABLE ACCESS THRU 165000 
3861 015620 052737 000040 177520 BIS #BITOS,.BCSR READ EAROM 
Ol 032737 000200 165002 BIT = POWER UP CODE 00? 
3863 015634 001450 BEQ TST44 ;3EXIT TEST, IF NOT 
3864 015636 032737 000100 165002 BIT #BITO6 ,80165002 POWER UP CODE 00? 
3865 015644 001444 BEG TST44 ;3EXIT TEST, IF NOT 
a 015646 004737 002502 JSR PC, IUBE ; INITIALIZE THE UBE 
; 
a ; DO POWER DOWN SEQUENCE 
$ 
3870 015652 013737 000024 001160 MOV PWRVEC , $TMPO ; STORE POWER DOWN VECTOR 
3871 015660 012737 015712 000024 MOV #1$ ,PWRVEC ; POINT NEW ONE TO PROGRAM 
3872 015666 013737 000026 000026 MOV PWRVEC+2,8026 ; AT PRIORITY 7? 
3873 015674 052777 000020 164312 BIS #BITO4 , ABEICR2 ; START POWER DOWN 
3874 015702 000240 NOP 
3875 015704 000240 NOP ; WAIT WHAT HAPPENED 
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000020 


000004 
015744 
177777 


001100 
001160 


164274 
000024 


000024 


3$: 
10$: 


+32 

10$ 

#BITO4 ,aBEICR2 
04 ,SP 

#3$ ,PWRVEC 


0177777,R1 
Ri,2$ 


#1100,SP 
$TMPO , PWRVEC 


NO POWER DOWN FOR THRU UNIBUS 


CLEAR POWER DOWN BIT 

ADJUST STACK POINTER 

POINT POWER UP VECTOR 
TIMEOUT ROUTINE 

WAIT A WHILE 

NO POWER UP 


ADJUST STACK 
RESTORE POWER DOWN VECTOR 


SEQ 0093 


—_——— = ee 
° , 
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.SBTTL TEST - WRONG PARITY TEST 


;* THIS TEST CHECKS THAT A WRONG PARITY TRAP CAN BE GENERATED ON 
;* DATI CYCLES. 


;* 


BGNTST 


SAVE 114 WRONG PARITY VECTOR AND POINT IT TO PROGRAM AREA 


LET @BEICC = -1 TO DO i CYCLE 
LET @BE1BA = #$TMPO FOR THE ADDRESS 


LET @BE1CR2 = SBEICR2 SET.BY #BIT1i2 TO ENABLE WRONG PARITY 
LET @BEICR1 = #13041 TO DO 1 DATO FROM BEICC 

IF NO TRAP TO 114 THEN 
—— GENERATING WRONG PARITY TRAP THRU UNIBUS 


LET @BE1CR2 = #0 TO CLEAR WRONG PARITY BIT 


RESTORE VECTOR 114 


ENDTST 


fF SSSKSESSSSSSS SESS SESSA SESE SESE EEEEESEE EERE EEEEEESEESEEEEEESEE 


;*TEST 44 
£ Fe SSESSESSCRSEKESESEESEESSEEEEESEEEEEEEEEEEEEEEEEESEEEEEEEESEEESEEEEEESEE 


TST44: 


i$: 


SCOPE 


WRONG PARITY TEST 


PC, IUBE 
§0114,R1 
#1$ ,90114 
#340 ,98¢116 


#BIT12,8BE1CR2 
@BE1CRi 


+32 
#0 ,@BE1CR2 
#4 ,SP 


INITIALIZE THE UBE 
SAVE PARITY TRAP 

POINT TO PROGRAM AREA 
AT PRIORITY 7 

DO 1 CYCLE 

SETUP ADDRESS REGISTER 
SET WRONG PARITY BIT 
READ A UBE REGISTER 
SHOULD CAUSE A PARITY TRAP 
NO PARITY TRAP 

CLEAR WRONG PARITY BIT 
ADJUST STACK POINTER 


—— se _— 
e . 


016050 


016122 


_——— ee 


KTJ11-8 DIAGNOSTIC 
TEST - NO SACK TIMEOUT 


012777 
012737 


E8 
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164130 
164112 


164072 
177776 


.SBTTL TEST - NO SACK TIMEOUT 


;* THIS TEST INSURES THAT THE CPU. TIMES OUT AND DROPS A GRANT IF NO 

;* SACK SIGNAL IS RECEIVED. IF THE CPU DOES NOT TIMEOUT, THE UBE 

;* WILL TIME OUT AND SEND SACK TO PREVENT THE BUS FROM HANGING AND WILL SET 
;* THE ERROR BIT IN CR2. 

;* 


BGNTST 


LET @BEICC = -1 TO DO 1 TRANSFER 

LET @BE1CR2 = SBE1CR2 SET.BY #BITO3S TO INHIBIT SACK 
LET @BE1CR1 = #6003 TO DO FUN 3 

WAIT FOR TIMEOUT OR @BE1CC NE -1 

IF NO TIMEOUT AND @BE1CR2 SET.BY #BITO7 THEN 

a - aa CPU FAILED TO DO NO SACK TIMEOUT 


5 pA EERE RE EERE AER EE EEE EEE EE EEE REESE EERE EEEEESEEEEEEEEEEED EEE 
s*TEST 45 NO SACK TIMEOUT 
§ EERE EERE EERE EEE EE EEE EEE EEEE EERE EEE EEE EEEEEEEEEEEEEEEEEEEEEEESE 


TST4S5: SCOPE 


JSR PC, IUBE ; INITIALIZE THE UBE 
MOV #BITO3,@BE1CR2 ; INHIBIT SACK BIT 
CLR PSW ; LOWER PRIC..iTY 
MOV #6003, @BE1CR1 ; GIVE UP BUS AFTER BECOMING MASTER 
MOV #7777 ,R1 ; DELAY CONSTANT 

1$: SOB R1,1$ ; WAIT IN A LOOP 
TSTB @BE1CR2 ; NO NO SACK TIMEOUT? 
BPL ; IF NO, BRANCH 
ERROR +32 ; NO NO SACK TIMEOUT 

2$: MOV #0,9BE1CR2 ; CLEAR INHIBIT SACK BIT 
MOV #340 ,PSW ; RESTORE PRIORITY 


eee ee 
S > 


—_—— ~~ 


KTJ11-8 DIAGNOSTIC 
TEST - NO INTERRUPT TEST 


016222 


016224 
016226 


F8 
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177776 
163764 


-SBTTL TEST - NO INTERRUPT TEST 


;* THIS TEST CHECKS THAT NO INTERRUPT CONDITION DOES NOT HANG THE BUS. 


BGNTST 


ENDIF 


PROGRAM UBE TO DO DMA ON BR7 
IF CYCLE NOT DONE OR INTERRUPT THEN 
. ERROR IN NO INTERRUPT LOGIC 


£5 EES ESSERE EEE EEEEEEESEEEEEESEESEESEEEEEEEEEEEESEEESD 


;*TEST 46 


PASSIVE RELEASE 


FF SEES ESSE EEEEEEESEEEEEESESEESEEEEEEESEEESEED 


TST46: SCOPE 


i$: 


10$: 


PC, TUBE 

#-1 e a@BE1CC 
#$TMPO,@BE1BA 
#10$ ,@BE1VEC 


INITIALISE UBE 


LOWER PRIORITY TO 3 
BR7, DATI 
DONE ? 


IF NOT, WAIT 
RESTORE PRIORITY 
TA OK? 


; DA 
33 IF OK, EXIT TEST 

; DATI ON BR7 IS WRONG 
33 GO TO NEXT TEST 


; NO INTERRUPT LOGIC IS WRONG 


—————— << — <a 
* 
. 


a ee 


i semen 


KTJ11-B DIAGNOSTIC 


TEST - UNIBUS DEVICE DATO CYCLE 


016230 
038 


4039 
4040 016232 


000004 


004737 


042737 
012700 
012701 


012737 





G8 
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SEQ 0097 


;* THE FOLLOWING TEST WILL SEE IF A UNIBUS DEVICE DATA OUT 
;* CAN OCCUR ON THE KTJ11-B MODULE.THE UNIBUS DATA PATH 
;* ON THE BOARD IS ALSO TESTED OUT. 


;* 


**+ & 


7 Ge G2 e+ Gs Ge Ge Ge SS Ge Se @e Gs Se Se Ge Ge © SS Ss Gs Se Ge Ge Se Se Se Se oe 
+ © 


| 
-SBTTL TEST - UNIBUS DEVICE DATO CYCLE | 


DISABLE UNIBUS MAPPING 
:= POINTER TO WRITE BUFFER 
:= POINTER TO PATTERN TABLE 


GO DO THE TRANSFERS 

” FOR PATTERNS 377,7417,31463,52525, 125252 
; - smi 
a] tal hates ee 


:= POINTER TO WRITE BUFFER 
:= POINTER TO PATTERN TABLE 


CHECK IF THE TRANSFERS WERE CORRECT 
DO UNTIL TABLE IS COMPLETE 


IF (RO)+ NEQ C(R1i)+ THEN 
—- DATO DID NOT OCCUR CORRECTLY 


;DATA IS CURRENT PATTERN 
sADDRESS IS CURRENT ADDRESS OF WRITE BUFFER 
;SET UBE FOR 1 DATA XFER 


fg ESSE SSESEARES EER ESSERSERESSESE EES EEEERESEEERESEEESE 


;*TEST 47 


UNIBUS DEVICE DATO CYCLE TEST 


FEES SESS ESSERE SEEKERS SESE SEKRESESESERESESEEEE 


TST47: 


002502 


000040 172516 
001734 
001774 


#BITS,MMRS 
GWRTIBUF ,RO 
#PTRN16,R1 


; INITIALIZE THE UBE 


; INITIALIZE POINTERS FOR THE TRANSFERS 


; MAKE SURE UNIBUS MAPPING IS DISABLED 
; POINTER TO WRITE BUFFER 
; POINTER TO PATTERN TABLE 


; EXECUTE THE LOOP TO DO THE TRANSFERS 


000002 177730 





#BIT01,D0CSR 


; SELECT UNIBUS LINES 


’ 
ee . rrr ee 





| H8 
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147 UNIBUS DEVICE DATO CYCLE TEST 

4054 016262 012704 000005 MOV #5 ,R4 : = UP LOOP COUNT 

4055 016266 012177 163710 1$: MOV (R1)+,@9BE1DB ; GET CURRENT DATA 

4056 016272 010077 163710 MOV RO,@BE1BA ; . GET ADDRESS IN THE WRITE BUFFER 

4057 016276 005077 163712 CLR aBE1CR2 ; . CLEAR ADDRESS BITS 16,17 

4058 016302 012777 177777 163674 MOV #-1.,@8BE1CC ; . SET UBE FOR 1 DATA TRANSFER 

pee 016310 012777 003041 163672 MOV #3041,@B6E1CR1 ; . SET UBE FOR NPR-DATO-1 XFER | 

4061 ; 

4062 ; WAIT FOR THE TRANSFER TO BE COMPLETE 

a064 

4065 016316 032777 000200 163664 53: BIT #BIT7,@BE1CR1i ; . IS THE TRANSFER COMPLETE 7 
016324 001774 BEQ 5$ : . NO, THEN GO WAIT FOR IT 

4067 016326 005737 177732 TST DDR : . UNIBUS LINES 0? 

4068 016332 001415 BEQ 7$ ; . IF SO, BRANCH 

4069 016334 022704 000003 CMP #3,R4 ; . . SELECTING CONTROL LINES 

4070 016340 001004 BNE 6$ : . IF NOT, BRANCH 

4071 016342 032737 000373 177732 BIT #373,00R : . ONLY USED LINES 0'S? 

4072 016350 001406 BEQ 7$ ; . . IF SO, BRANCH 

4073 916352 013737 177732 001126 6$: MOV DDR , $BODAT . <ce RECIEVED DATA 

4074 036360 005037 001124 CLR $GDDAT ; . « EXPECTED DATA 

4075 016364 104016 ERROR +16 : . ERROR IN UNIBUS LINES 

4076 016365 062737 000002 177730 7$: ADD #BIT0O1,DCSR ; . . THRU ALL COMBINATIONS 

4077 016374 032737 000006 177730 BIT #6,DCSR : . ALL DONE? 

4078 016402 001003 BNE 8$ ; . . IF NOT, BRANCH 

4079 016404 012737 000002 177730 MOV #BIT01,DCSR ; . OTHERWISE, START OVER 

4080 016412 062700 000002 8$: ADD RO e+ GET THE NEXT ADDRESS TO TRANSFER TO 

4081 016416 077455 S0B R4,1$ - HAVE WE GONE THROUGH THE TABLE ? 

4083 

4084 ; CHECK IF THE TRANSFERS WERE COMPLETED CORRECTLY 

4085 : 

4087 016420 012700 001734 MOV @WRIBUF ,.RO ; POINTER TO WRITE BUFFER 

4088 016424 012701 001774 MOV #PTRNi6,R1 ; POINTER TO PATTERN TABLE 

4089 016430 012704 000005 MOV #5,R4 ; SET UP LOOP COUNT 

4090 016434 022021 10$: CMP CRO)+, CR1)+ ; . WAS THE TRANSFER CORRECT ? 

4091 016436 001401 BEQ 15$ ; . YES, THEN SKIP THE ERROR MESSAGE 

4092 016440 104032 ERROR +32 ; . NO, THEN ERROR IN THE TRANSFER 

4093 016442 077404 15$: SOB R4,10$ ; . HAVE WE CHECKED ALL S XFERS ? 

4095 

4096 


016510 


KTJ11-B DIAGNOSTIC 
TEST - UNIBUS DEVICE DATI CYCLE 


012700 
011001 


012777 
012777 


> ee ee 


18 
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002502 
000040 


001774 


163510 
163510 
163512 


177777 163474 
002041 163472 





172516 


SEQ 0099 


-SBTTL TEST - UNIBUS DEVICE DATI CYCLE 


;* THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE A 
;* UNIBUS DEVICE DATI CYCLE.THE UNIBUS ADDRESS PATH ON THE 
3* MODULE IS ALSO TESTED OUT. 


BGNTST 


* INITIALIZE THE POINTERS FOR THE TRANSFERS 
Y 
DISABLE UNIBUS MAPPING 


; 
; 

; 

; 

$ 

; 

; LET RO := POINTER TO 16 BIT PATTERNS 

; LET R1 := CRO) ;CURRENT PATTERN 
;* 

;* GO DO THE TRANSFER THEN CHECK IF IT OCCURED CORRECTLY 

;* 

; LET BE1DB := 0 ;CLEAR DATA BUFFER 

; LET BE1BA := RO ;sREAD FROM DATA PATTERN 
$ LET BEICC := -1 31 DATA XFER 

5 SETUP UBE TO DO NPR-DATI-1 DATA XFER 

; SET OFF THE TRANSFER 

; IF BE1DB NEQ #377 THEN 

; . ERROR DATA READ IN WAS INCORRECT 

$ ENDIF 

; €NDTST 

; 


5 EERE REESE EEE EEE EEE EEE ESSE EEE EEEEEEEEEEEEEEEEEEEEEEEEEEEE REESE 
UNIBUS DEVICE DATI CYCLE TEST 


;*TEST SO 


FEES SEKEKSESSSESSSESSSESSESSSESSSESEESESEESEESESESESESESEREEESEEEEE 


TSTSO: 


SCOPE 


JSR 
BIC 


PC, IUBE 


#BITS ,MMRS 


MOV #PTRN16,RO 
MOV CRO),R1 

; 

; GO DO THE TRANSFER 

; 

S$: CLR @BE 108 
MOV RO, @BE1BA 
CLR aBE1CR2 
MOV #-1,9BE1CC 
MOV #2041 ,@BE1CR1 


; INITIALIZE THE UBE 


; DISABLE UNIBUS MAPPING 


INITIALIZE POINTERS FOR THE TRANSFERS 


; GET POINTER TO PATTERN TABLE 
; GET CURRENT PATTERN 


. SET UBE FOR 1 TRANS 
’ SET UBE FOR NPR-DATI-1 XFER 


INITIALIZE THE DATA BUFFER 


. GET ADDRESS WE WANT TO READ 


CLEAR ADDRESS BITS 16,17 
FER 


— | i EEE ET a, tT TTT TT TE at i = -- 


| J8 
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750 UNIBUS DEVICE DATI CYCLE TEST 
4152 ; WAIT FOR THE TRANSFER TO COMPLETE 
os : 
4155 016516 032777 000200 163464 10$: BIT #BIT7,@BE1CR1 ; . . IS THE TRANSFER COMPLETE ? 
res. 016524 001774 BEQ 10$ ; . . WAIT FOR IT TO BE COMPLETE 
4158 ; 
4159 ; CHECK THE TRANSFER 
aiei 
4162 016526 027710 163450 CMP @BE1DB , CRO) ; . WAS THE TRANSFER CORRECT ? 
4163 016532 001401 BEQ 18$ ; . YES, THEN GO TO THE NEXT TEST 
4164 016534 104032 ERROR +32 ; . NO, THEN ERROR IN THE TRANSFER 
4165 016536 005720 18$: TST CRO)+ ; . DONE WITH PATTERNS? 
aun? 016540 001352 BNE 5$ ; . LOOP TILL DONE 
4168 


20 
4221 
4222 
4223 
4224 


016572 


016576 
016602 
016606 
016612 


KTJ11-8 DIAGNOSTIC 


000004 
013701 


012702 


005077 
005077 
011277 
012777 
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TEST - UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 


177734 
177700 
000077 


023122 
002502 
001774 


163370 
177770 163364 





Sn neneeeneeeniainettineanttttieeteeeentte -_— — «=» — 


SEQ 0101 


-SBTTL TEST - UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 


;* THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
;* A UNIBUS DEVICE DATO CYCLE THROUGH THE UNIBUS MAP. 


IF ALL UNIBUS MEMORY THEN GO TO END OF PASS 
UP UBE AND UNIBUS MAP REGISTERS FOR TRANSFER 


;POINT TO UMRO 
;DATA PATTERN IS 125252 
;D0 & XFERS 


:= ADDRESS OF WRITE BUFFER 


CHECK IF THE TRANSFER OCCURED CORRECTLY 


;* 

‘ 

; BGNTST 

; 

;* SET 

;* 

; LET BEIBA := 0 

; LET BE1DB := 125252 

i LET BEICC := -8. 

; SET UBE TO DO NPR-DATO-2 DATA XFERS 
; LET MAPLOO 

i LET MAPHOO := 0 

;* 

;* GO DO THE TRANSFER 

te 

; SET OFF TRANSFER 

; WAIT TILL XFER IS DONE 
;* 

;* 

a 


LET RO := POINTER ~ WRITE BUFFER 


DO F 


OR R1 := 1 TO 


IF (PO)+ NEQ #125252 THEN 


— DATO DID NOT EXECUTE CORRECTLY 


5 ERRATA EEE ESSA E EERE EEE ESSE SS OEE EEEEEEEREEEEEEEEESEESS 
UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
5 EERE EERE EEE EERE EEE EEE EE SEES EES EEEEEEEEEEEEEEEEOE EERE SESE 


;*TEST 
TSTS1: 


1$: 


51 
SCOPE 


KMCR ,R1 
#177700,R1 


#77 ,R1 


UB 
PC, IUBE 
#PTRNI6,R2 


STORE KMCR 

LEAVE ONLY BITS <5-0O> 

ALL UNIBUS MEMORY? 

IF NOT, BRANCH 

IF ALL UNIBUS, SKIP TILL END OF PASS 
INITIALIZE THE UBE 

TEST PATTERN ADDRESS 


; 
; SET UP UBE AND UNIBUS MAP REGISTERS FOR TRANSFER 


; 
2$: 


aBE1BA 
aBE1CR2 
(R2),@BE 108 
#-8 ee aBE1CC 





POINT UBE ADDRESS TO UNIBUS MAP 
REGISTER #0 

DATA PATTERN 

DO 8. TRANSFERS 


ecm eee ee 
—-, 





| L8 
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| 
} 
| 
| 


i 
SEQ 0102 «CO 


T51 UNIBUS DEVICE DATO CYCLE WITH RELOCATION ENABLED 
4225 016620 012737 001734 170200 MOV @WRTIBUF ,MAPLOO ; SET UP LOW MAP REGISTER 
4226 016626 9005037 170202 CLR MAPHOO ; SET UP HIGH MAP REGISTER 
pH 016632 052737 000040 172516 BIS #BITS,MMR3S ; ENABLE UNIBUS MAPPING 
4229 ; 
4230 ; GO DO THE TRANSFER 
4233 016640 012777 003041 163342 MOV #3041 ,@BE1CR1 ; DO A NPR-DATO-1 XFER 
4234 016646 032777 000200 163334 i103: BIT #BIT7,@BE1CR1i ; IS THE TRANSFER COMPLETE 7? 
Prin 016654 001774 BEQ 10$ ; WAIT FOR IT TO COMPLETE 
4237 3 
4238 ; CHECK IF THE TRANSFER OCCURED CORRECTLY 
oo : 
4241 016656 042737 000040 172516 BIC #BITS,MMR3 ; DISABLE UNIBUS MAPPING 
4242 016664 012700 001734 MOV #WRTIBUF ,RO ; GET POINTER TO WRITE BUFFER 
4243 016670 012701 000010 MOV ; SET UP LOOP COUNTER 
4244 016674 022012 15$: CMP CRO)+,CR2) ; . SEE IF TRANSFER OCCURED CORRECTLY ? 
4245 016676 001401 BEQ 20$ ; . YES, THEN SKIP ERROR MESSAGE 
4246 016700 104032 ERROR +32 ; . NO, THEN ERROR IN TRANSFER 
4247 016702 077104 20$: SoB R1,15$ ; . HAVE WE CHECKED ALL THE TRANSFERS 
4248 016704 005722 TST CR2)+ ; GET NEXT PATTERN 
4249 016706 001333 BNE 2 ; LOOP TILL DONE 


rrr Ee 


; 


—_— a ee 


me ee ee 


KTJ11-8 DIAGNOSTIC 


‘= 


016710 
294 
4295 016712 


4301 016716 
4302 016722 
4303 016726 
4304 016732 
4305 016736 


012777 


ae —— — 


M8 
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TEST - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 


002502 


16 
177777 163240 





-SBTTL TEST - UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 


;* THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
;* A UNIBUS DEVICE DATI CYCLE THROUGH THE UNIBUS MAP WITH 


;* CACHE DISABLED. 
;* 


; BGNTST 


;* SET UP THE UBE FOR A DATI CYCLE 


i LET BE1BA := 0 ;POINT ADDRESS TO MAPXO0O 
; LET BEICR2 := 0 ; 

; LET BE1DB := 0 + oe DATA BUFFER 
; LET BEICC := -1 ;SET FOR 1 XFER 

; SET UBE FOR A NPR- DATI-1 XFER 

;* 


;* SET UP THE MAP REGISTER FOR THE TRANSFER 


i LET MAPLOO := RO ;POINT UMR #0 TO DATA PATTERN 
; LET MAPHOO := 0 

; ENABLE UNIBUS MAPPING 

7 

;* GO DO THE TRANSFER 

;* 

; SET OFF THE TRANSFER 

; WAIT FOR TRANSFER TO COMPLETE 


; DISABLE UNIBUS MAPPING 

;* 

;* CHECK IF THE TRANSFER OCCURED CORRECTLY 
é 

: 


IF BE1DB NEQ (RO)+ THEN 
° ae DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 


ff REREEEEESREEEEESSESSESESESESRESSSASSESESESESERESEREEEEESEEEEEEESE 
;#TEST 5 UNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED 
ff PESSSEEEEE SEES ESSERE EERESESEESEERESSESESSESEESTESEEEEESEESEESS 


TSTS2: SCOPE 


JSR ; INITIALIZE THE UBE 


PC, IUBE 


° 
; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
; 


MOV @PTRN16 ,RO ; PATTERN AREA 
1$: CLR @BE1BA ; POINT UBE TO THE FIRST UNIBUS MAP 
CLR aBE1CR2 ; REGISTER 
CLR @BE 108 ; INITIALIZE THE DATA BUFFER 
MOV #-1,@BE1CC ; SET FOR 1 TRANSFER 





RS ANT 





SEQ 0103 


—_—— 


N8 
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SEQ 0104 

152. -—s«sUNIBUS DEVICE DATI CYCLE WITH RELOCATION ENABLED : 

4306 016744 010037 170200 MOV -—Ss- RO, MAPLOO ; POINT MAP REGISTERS TO PATTERN TABLE 

4307 016750 005037 170202 CLR MAPHOO ; 

4308 016754 052757 000040 172516 BIS § @BIT5, MMR3 ; ENABLE UNIBUS MAPPING 

4310 F 

4311 ; GO DO THE TRANSFER 

4313 

4314 016762 012777 002041 163220 MOV «#2041, @BE1CR1 =; SET UBE FOR NPR-DATI-1 XFER 

4315 016770 032777 000200 163212 S¢: BIT § _@B1T7.88E1CR1 ; IS THE TRANSFER COMPLETE 

4316 016776 001774 BEQtié*SSS ; NO. THEN WAIT FOR IT TO BE COMPLETE 

4317 017000 042737 00040 172516 BIC § @BITS,@eMMR3 =; YES, THEN DISABLE UNIBUS MAPPING 

4319 : 

4320 ; CHECK THE TRANSFER 

a3ae ' 

4323 017006 027710 163170 CMP —«- @BE108, (RO) ; DIO THE TRANSFER HAPPEN CORRECTLY ? 

4324 017012 001401 BEQ —s«108 ; YES “ 

4325 017014 104032 ERROR +32 ; TRANSFER DID NOT OCCUR CORRECTLY 

4326 017016 005720 10$: TST (CROs ; ALL DONE? 

4327 017020 001340 BNE if ; LOOP TILL DONE 

4328 

4329 

4330 


KTJ11-B8 DIAGNOSTIC 
TEST - ALU TEST USING UBE 


B9 
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.SBTTL TEST - ALU TEST USING UBE 

3* THIS TEST WILL CHECK THE FIRST 3 ALU’'S EACH ONE AT A TIME. AT FIRST THE 
;* PATTERN THAT DOES NOT RESULT IN OVERFLOW WILL BE USED, THE SECOND PATTERN 
3* GENERATES OVERFLOW INTO THE NEXT ALU. 

3% 


BGNTST 


E :2 O 

ENABLE UNIBUS MAPPING 
* 
* GO DO THE TRANSFER 
ra 

SET OFF THE TRANSFER 


a 

a 

; IN 18-BIT MODE DON'T RUN THIS TEST 

; LET R1 :* 1001 CPATTERN WITHOUT OVERFLOW FROM ALU) 

; LET R2 := 0101 (MAP REGISTER PATTERN) 

; LET R3 := @MAPLOO 

; LET R4 := 0110 COVERFLOW) 

; LET RS :* 1011 

; 00 FOR 3 PATTERNS 

; . LET BE1IBA := R1 a ADDRESS TO MAPXOO 
; LET BEICR2 := 0 

; LET BE1DB := 0 SINITIALIZ= = DATA BUFFER 
; LET BEICC := -1 ;SET FOR 1 XFER 

; SET UBE FOR A NPR-DATI-1 XFER 

: 

;* SET UP THE MAP REGISTER FOR THE TRANSFER WITHOUT OVERFLOW FROM ALU 
;* 

i - LET CRB) := R2 ;POINT UMR #0 TO DATA PATTERN 
; LET 2(R3) :* O 

: ENABLE UNIBUS MAPPING 

;* 

:* GO DO THE TRANSFER 

32 

; . SET OFF THE TRANSFER 

; . WAIT FOR TRANSFER TO COMPLETE 

; . DISABLE UNIBUS MAPPING 

;* 

;# CHECK IF THE TRANSFER OCCURED CORRECTLY 

;* 

; . IF BEIDB NEQ@ (Ri+R2) THEN 

; ° —— DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 
oo 

;* NOW CHECK CARRY OUT FROM ALU 

;* 

; . LET BEIBA := R4 pus ADDRESS TO MAPXOO 
; . LET BEICR2 := 0 

; LET BE1D8 :° 0 s INITIALIZE DATA BUFFER 
; LET BE1ICC -1 ;SET FOR 1 XFER 

; SET UBE FOR A NPR-DATI-1 XFER 

3% 

;* SET UP THE MAP REGISTER FOR THE TRANSFER 

3;* 

; LET CR3) := RS ;°OINT UMR #0 TO DATA PATTERN 
; LET 2(R3) 

> 

’ 

6 

‘ 

+ 





SEQ 0105 


LS 
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TEST - ALU TEST USING UBE 


4389 $ WAIT FOR TRANSFER TO COMPLETE 
pe oy ; DISABLE UNIBUS MAPPING 
;* 
pees ;* CHECK IF THE TRANSFER OCCURED CORRECTLY 
;* 
4394 ; IF BE1DB NE@ CR4+RS) THEN 
4395 ; ERROR DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 
4396 3 ENDIF 
4397 ;* 
pre ;* CHANGE THE PATTERN 
;* 
4400 3 . SHIFT R1,R2,R4,RS 4 TIMES AND POINT TO MAPLO3 AND MAPLOG6 
4401 ; POINT R3 TO MAPLO3 AND THEN TO MAPLO6 
4402 : ENDDO 
4403 3 
4404 ; ENDTST 
4405 : 
4406 Beemer meme mmc meee em ewe enw en were cere wee eens ewer enews em en we eceon= 
4407 
4408 
4409 5p REESE EEE EEEEE EEE EEEEEEEEEEEEOEEEEEEEEEEEEEEEEEEEES 
;*TEST 53 ALU TEST USING UBE 
fp ee EESEESEEEEEEEEEEEEESSEOEEEEEEKEEEEEEEEEOEEEEEDE 
017022 0900004 TSTS3: SCOPE 
4410 
4411 017024 032737 000040 177734 BIT #BITOS,KMCR ; 18 BIT MODE? 
4412 017032 001402 BEQ 10$ ; IF NOT, CONTINUE 
4413 017034 000137 017452 JMP $ ; OTHERWISE, EXIT 
4414 017040 005037 172354 10$: CLR KIPAR6 ; FOR ERROR REPORTING 
4415 017044 004737 002502 JSR PC, IUBE ; INITIALIZE THE UBE 
4416 017050 012700 000022 MOV $22 ,RO ; INITIAL PATTERN FOR ADDRESS LINES 
4417 017054 012701 000012 MOV #12,R1 ; INITIAL PATTERN FOR MAP REGISTER 
4418 017060 012703 170200 MOV »R3 ; FIRST REGISTER PAIR TO BE USED 
4419 017064 012704 000014 MOV #14 ,R4 ; PATTERN FOR THE OVERFLOW FOR A. LINES 
4420 017070 012705 000026 MOV $26 ,R5 ; PATTERN FOR MAP PAIR 
4421 017074 005037 001162 CLR $TMP1 ; LOCATION TO SELECT REGISTER PAIR 
4422 : 
4423 ; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
pe ; 
44 
4426 017100 010077 163102 i$: MOV RO, @BE1BA ; POINT UBE TO THE PATTERN 
4427 017104 005077 163104 CLR aBE1CR2 ; REGISTER 
4428 017110 005077 163066 CLR aBE 108 ; INITIALIZE THE DATA BUFFER 
4429 017114 012777 177777 163062 MOV #-1,8BE1CC ; SET FOR 1 TRANSFER 
4430 017122 010113 MOV R1,CR3) ; POINT MAP REGISTERS TO PATTERN 
4431 017124 005063 000002 CLR 2CR3) ; CLEAR HIGH MAP REGISTER 
pre 017130 052737 000040 172516 BIS #BITS,MMRS ; ENABLE UNIBUS MAPPING 
a4 
4434 5 
4435 ; GO DO THE TRANSFER 
4436 ; 
4437 
4438 017136 012777 002041 163044 MOV $2041 ,9BE1CR1 ; SET UBE FOR NPR-DATI-1 XFER 
4439 017144 032777 000200 163036 23 BIT #BIT7,@BE1ICR1i ; IS THE TRANSFER COMPLETE 
4440 017152 001774 BEQ 2$ ; NO, THEN WAIT FOR IT TO BE COMPLETE 
4441 017154 042737 000040 172516 BIC #BITS,a¢MMRS ; YES, THEN DISABLE UNIBUS MAPPING 





SEQ 0106 
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017162 
017166 
017174 
017200 
017206 
017210 
017216 
017224 
017232 


017310 


017316 


017370 
017376 
017400 
017404 
017410 
017414 
017420 
017424 


052737 


012777 
032777 
001774 
042737 


010437 
042737 
060537 
027777 
001412 
017737 
017737 
013737 
104023 


022737 


177777 


000002 
000040 


001160 
60000 


1 
001160 
162642 


162632 


161602 
001160 


002000 





001160 
161752 
001126 


001124 
001122 


162726 


172516 


162710 
162702 


172516 


001160 
161616 
001126 


001124 
001122 


001720 


001162 


DY 
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; 
; CHECK THE TRANSFER 


MOV RO, $TMPO ; FIND ADDRESS ACCESSED 
BIC #160000, $TMPO ; MAKE SURE THAT USING ALL 16 BITS FOR ADDRESS 
ADD R1,$TMPO ; 
CMP 9BE 108 ,8$ TMPO ; DID THE TRANSFER HAPPEN CORRECTLY ? 
BEQ 3$ ; IF SO, BRANCH 
MOV @BE10B6 , $BDDAT ; WRONG DATA 
MOV a$TMPO, $GDDAT ; EXPECTED DATA 
MOV $TMPO, $BDADR :; ADDRESS USED 
ERROR 23 ; 'RANSFER DID NOT OCCUR CORRECTLY 
3 
; NOW CHECK THE SAME ALU FOR OVERFLOW 
; 
3$: wv R4,@BE1BA ; POINT UBE TO THE PATTERN 
CLR aBE1CR2 ; REGISTER 
CLR aBE 108 ; INITIALIZE THE DATA BUFFER 
MOV #-1,@9BE1CC ; SET FOR 1 TRANSFER 
MOV 5,(R3) ; POINT MAP REGISTERS TO PATTERN 
CLR 2CR3) ; CLEAR HIGH MAP REGISTER 
BIS BITS ,.MMR3S ; ENABLE UNIBUS MAPPING 
8 
; GO DO THE TRANSFER 
; 
MOV #2041 ,@BE1CR1i ; SET UBE FOR NPR-DATI-1 XFER 
4$: BIT #B1IT7,@BE1CR1 ; IS THE TRANSFER COMPLETE 
BEQ 4$ ; NO, THEN WAIT FOR IT TO BE COMPLETE 
BIC BITS, @OMMRS ; YES, THEN DISABLE UNIBUS MAPPING 
; CHECK THE TRANSFER 
: 
MOV R4,$TMPO :; FIND ADDRESS ACCESSED 
BIC #160000 , $TMPO ; MAKE SURE THAT USING ALL 16 BITS FOR ADDRESS 
ADD RS,$TMPO ; 
CMP @BE1D08 ,8$TMPO ; DID THE TRANSFER HAPPEN CORRECTLY ? 
BEQ 5$ ; IF SO, BRANCH 
MOV @BE108 , $BDDAT ; WRONG DATA 
MOV S$ TMPO, $GDDAT ; EXPECTED DATA 
MOV $TMPO, $BDADR ; ADDRESS USED 
ERROR +23 ; TRANSFER DID NOT OCCUR CORRECTLY 
: 
; CHANGE THE PATTERN 
5 
5$: CMP #2000 ,PMIS ; MORE THAN 32K OF PMI MEMORY? 
BHIS TSTS4 3; IF NOT, EXIT TEST 
ASH #4,RO ; TO GET TO NEXT ALU 
ASH 04 ,R1 ; BY SHIFYING 4 TIMES 
ASH #4 ,R4 ; 
ASH $4,R5 ; 
ADD #12. ,R3 ; GET NEXT REGISTER PAIR 
ADD #60000, $TMP1 ; 





~~? oe 


SEQ 0107 ~=S 


ee 
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SEQ oO108_— 
153 ALU TEST USING UBE : 
4500 017432 053700 001162 BIS $TMP1,RO ; SET TO SELECT NEXT REGISTER PAIR 
4501 017436 053704 001162 BIS $TMP1,R4 ; 
4502 017442 022737 020000 001162 CMP #20000,$TMP1  ; ALL 3 ALU’S DONE? 
4503 017450 001213 BNE 1$ ; IF NOT, BRANCH 
4504 017452 208: 


017452 


017454 
017460 


S2 
4553 017464 
4554 017472 


4557 017510 
4558 017516 
4559 017524 
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012777 


012737 
012737 


oe 


MACRO YOS.02 Friday 29-Mar-85 12:53 Page 54 


172354 
002502 


052525 
000002 
162510 
162472 
177777 
177777 
000077 





000000 
162506 


162466 
170200 
170202 


rs 


SEQ 0109 SCS! 


-SBTTL TEST - CARRY PROPOGATION TEST USING UBE 


;* THIS TEST VALIDATES THAT CARRY CAN is —_—— THRU ALL ALU’S CORRECTLY. 
;* THE RESULT IS OBTAINED FROM LOCATION 0 


; BGNTST 

Y 

;* 

;* SET UP THE UBE FOR A DATI CYCLE 

;* 

i LET a00 := #52525 

; LET BE1BA := #2 

; LET BEICR2 := O 

; LET BE1D0B := O INITIALIZE DATA BUFFER 
; LET BE1CC := -1 ;SET FOR 1 XFER 

; SET UBE FOR A NPR-DATI-1 XFER 

;* 

;* SET UP THE MAP REGISTER FOR THE TRANSFER 

;* 

; LET MAPLOO := #177777 ;POINT UMR #0 TO DATA PATTERN 
; LET MAPHOO := #77 

; ENABLE UNIBUS MAPPING 


* 
;* GO DO THE TRANSFER 

a 

SET OFF THE TRANSFER 


; 

; WAIT FOR TRANSFER TO COMPLETE 

; DISABLE UNIBUS MAPPING 

;* 

;* CHECK IF THE TRANSFER CCCURED CORRECTLY 
;* 

F IF BE1D8 NEQ #0 (52525) THEN 


me DATI THROUGH UNIBUS MAP DID NOT EXECUTE CORRECTLY 


; 
i 
; ENDTST 
; 


FF EES ESSEC SSESS SSE SSES SSE SSESASERSESE SEES SES SSEEKESEERESEERERERED 


;*TEST 54 CARRY PROPOGATION TEST USING UBE 
5 ERR ER ESSER ESSE E EERE EEE EEE ESET EESEEEEEESEREEEREEEEERE ES 
TSTS4: SCOPE 

CLR KIPAR6 ; CLEAR FOR ERROR REPORTS 

JSR PC, TUBE ; INITIALIZE THE UBE 


; 
; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
; 


MOV #52525 ,8#0 ; TEST LOCATION 

MOV #2,8BE1BA ; POINT UBE TO THE FIRST UNIBUS MAP 
CLR @BE1CR2 ; REGISTER 

CLR @BE 108 ; INITIALIZE THE DATA BUFFER 

MOV #-1,@BE1CC ; SET FOR 1 TRANSFER 

MOV #177777,MAPLOO ; POINT MAP REGISTERS TO OVERFLOW 
MOV #77 ,MAPHOO : 





a ee 


A 
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SEQ 0 

T54 CARRY PROPOGATION TEST USING UBE w case 

Po ey 017532 052737 000040 172516 . BIS #BITS,MMRS ; ENABLE UNIBUS MAPPING 

4562 

4563 ; GO DO THE TRANSFER 

4565 

4566 017540 012777 002041 162442 MOV #2041 ,@BE1CR1 ; SET UBE FOR NPR-DATI-1 XFER 

4567 017546 032777 000200 162434 5$: BIT #BIT7,@BE1CR1 ; IS THE TRANSFER COMPLETE 

4568 017554 001774 BEQ 5$ ; NO, THEN WAIT FOR IT TO BE COMPLETE 

he 017556 042737 000040 172516 BIC #BITS ,3OMMRS ; YES, THEN DISABLE UNIBUS MAPPING 

4571 : 

4572 ; CHECK THE TRANSFER 

on , 

4575 017 027727 162412 052525 CMP @BE10B , #52525 ; DID THE TRANSFER HAPPEN CORRECTLY ? 

4576 017572 001411 BEQ TSTSS ;: GO TO THE NEXT TEST 

4577 017574 017737 162402 001126 MOV @BE10B , $BDDAT ; WRONG DATA 

4578 017602 012737 052525 001124 MOV #52525, $GDDAT ; EXPECTED DATA 

4579 017610 005037 001122 CLR $BDADR ; ADDRESS USED 

aa 017614 104023 ERROR +23 ; TRANSFER DID NOT OCCUR CORRECTLY 


— — 


017616 
4619 017620 
4620 


4621 
4622 
4623 
4624 017624 


4630 017662 
4631 017670 
4632 017676 
4633 
4634 


4635 
4636 017704 
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000004 
004737 


012777 


012777 


et ee el LT 


H9 
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002502 


017754 


002041 





162364 
162360 


162322 


172516 


162276 


.SBTTL TEST - NXM TEST USING UBE 

;* THIS TEST CHECKS THAT ACCESSING NXM MEMORY CAN BE DONE CORRECTLY THRU 
;* UBE. TEST LOCATION USED IS 17760000. 

| 


; BGNTST 

: 

;* 

;* SET UP THE UBE FOR A DATI CYCLE 

ed 

; LET BE1BA := 0 dace ADDRESS TO MAPXO0O 
; LET BEICR2 := 0 

; LET BE1DB := 0 sINITIALIZE DATA BUFFER 
; LET BEICC := -1 ;SET FOR 1 XFER 

; SET UBE FOR A NPR- DATI-1 XFER 

;* 

;* SET UP THE MAP REGISTER FOR THE TRANSFER 

;* 

; LET MAPLOO := #160000 ;POINT UMR #0 TO DATA PATTERN 
; LET MAPHOO := #77 

; ENABLE UNIBUS MAPPING 

;* 

;* GO DO THE TRANSFER 

;* 

; SET OFF THE TRANSFER 

;* 

;* CHECK IF THE TRANSFER OCCURED CORRECTLY 

;* 

; IF #BITO8 NOTSET IN SBE1CR2 THEN 

; . ERROR DATI TO NXM IS WRONG 

; ENDIF 

‘ 

; ENDTST 

; 


FREESE SEEKS ES SSESSERSE SRE ESESSESEEEEEEEESESEESEESESERESREE 


s*TEST 55 NXM TEST USING UBE WITH RELOCATION 
5 EERE EERE EERE EERE EEE EEE EEE RES EE EE ESSERE EEEEEESOEEEEER ES ESS 


TSTSS: SCOPE 
JSR PC, IUBE ; INITIALIZE THE UBE 


; 
; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 
; 


MOV #10$ ,ABE1VEC ; POINT INTERUPT VECTOR 
MOV #340 , @BE1PSW : 
CLR @BE1BA ; POINT UBE TO THE FIRST UNIBUS MAP 
CLR @BE1CR2 ; REGISTER 
CLR 108 ; INITIALIZE THE DATA BUFFER 
MOV #-1,@BE1CC ; SET FOR 1 TRANSFER 
MOV #160000,MAPLOO ; POINT MaP REGISTERS TO NXM 17760000 
MOV #77 ,MAP : 
; 


BIS #BITS ,MMRS ENABLE UNIBUS MAPPING 


; GO DO THE TRANSFER 
MOV #2041,8BE1CR1 ; SET UBE FOR NPR-DATI-1 XFER 








=; — 


SEQ 0111 


a ~s rr = cern ca nen rer tite 


- ie 
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TSS NXM TEST USING UBE WITH RELOCATION ENABLED 
4637 017712 032777 000200 162270 5$: BIT #BIT7,@BE1CR1 
4638 017720 001774 BEQ 5$ 
4639 017722 032777 000400 162264 BIT #BITOS8 , @BEICR2 
4640 017730 001001 BNE 6$ 
4641 017732 104022 ERROR +22 
4642 017734 106427 000140 6$: MTPS #140 
4643 017740 000240 
4644 017742 000240 
4645 017744 104022 ERROR +22 
4646 017746 000404 R 12$ 
pr ead 017750 106427 000340 MTPS #340 
; 
pens ; CHECK THE TRANSFER 
i 
4651 017754 062706 000004 10$: ADD #4 ,SP 
pre | 017760 042737 000040 172516 12$: BIC #BITS , A#MMRS 


IS THE TRANSFER COMPLETE 
NO, THEN WAIT FOR IT TO BE COMPLETE 


NXM ? 

IF SO, BRANCH 

NXM NOT SET 

ALLOW INTERRUPTS 

NXM WITHOUT INTERRUPT 


RESTORE PRIORITY 


ADJUST STACK 
YES, THEN DISABLE UNIBUS MAPPING 


SE@ 0112 


. rr a t™* 


——- 
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4655 
4656 


017766 
017770 


4686 017776 
020002 


000004 


013737 
013701 


005002 . 
012703 |; 


004737 


— —_—=_ 


JY 
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000040 
170240 


000001 
002502 





001162 
001160 
001160 
177730 


177734 
177730 


172516 


SEQ 0113 


-SBTTL TEST - RELOCATION WITH UNIBUS MEMORY 

;* THIS TEST WILL CHECK THAT MAPPING REGISTER PAIRS THAT ARE 

3# ASSOCIATED WITH UNIBUS MEMORY DO NOT PERFORM RELOCATION. 

;* IF ANY UNIBUS MEMORY PRESENT, DATI CYCLES TO THAT MEMORY 

;* WILL BE CHECKED. | 
FF 


BGNTST 


DO FOR KMCR = #67,27 (18-BIT AND 22-BIT MODES, 32K OF PMI MEMORY) 
- WITH MAPPING PAIRS 10 TO 36 
DO DATI TO O USING SELCTED MAPPING PAIR 


IF NO TIMEOUT THEN 
Pa ae DISABLED REGISTER PAIRS DO RELOCATION 
ENDDO 


IF ANY UNIBUS MEMORY PRESENT THEN 
DO DATI WITH RELOCATION ENABLED 
IF RELOCATED THEN 
ERROR 


fp ERE EERE EEE EE EERE EEE ESSE EEEESEEEEEEEEEE EOE EEEEEEEEEEEZEES 
MEMORY 


s*TEST 56 RELOCATION WITH UNIBUS 
5 EERE EEE EE EEE EERE EEE EE EEE E EEE EEEEEEEEEEEEEEOEEEEEEEEEEEEEE ES 


TSTS6: SCOPE 
KMCR , $TMP1 ; STORE KMCR 
KMCR ,R1 ; STORE KMCR 
#177740,R1 ; LEAVE ONLY <4-0> 
#MAPL37,$TMPO ; START WITH HIGHEST ADDRESS 
#37,R1 ; ANY UNIBUS MEMRORY? 
101% ; IF NOT, BRANCH 
100$: 04, $TMPO ; GET LOWER REGISTER PAIR 
R1,100$ ; LEAVE IN $TMPO HIGHEST AVAILABLE PAIR 
101$ #BITO8 ,OCSR ; ENABLE DIAGN. MODE 
#67 ,KMCR ; 18-BIT, 32K PMI 
#BITO8 ,OCSR ; DISABLE DIAGN. MODE 


REGISTERS FOR INITIAL CONDITIONS 





#BITS ,MMRS ; ENABLE UNIBUS MAPPING 

1$: #MAPL10,R1i ; . POINT TO MAPL10 
R2 ; . ADDRESS BITS <15-0> REG. 10 
#1,R3 ; . ADDRESS FOR CR2<17-16> 

2$: JSR PC, IUBE ; . INITIALIZE THE UBE 


; 
; SET UP UBE AND UNIBUS MAP REGISTERS FOR A DATI CYCLE 


. rr 


KTJ11-B8 


TS6 


DIAGNOSTIC 


RELOCATION WITH 


010277 


012777 


012777 
032777 


101315 


032737 
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MEMORY 


UNIBUS 


177777 
020220 
000340 


002041 
000200 


161632 
123456 





162056 


162056 
162052 


162034 
162026 


162022 


177734 
177730 


177734 
177730 


001160 


161672 
161672 


000000 
161636 


161614 





Kg 


. POINT UBE TO FIRST MAP REGISTER 
. REGISTER 

. LOAD ADDRESS <17-16> 

. INITIALIZE THE oo BUFFER 


. . SET FOR 1 TRANSFE 


. CLEAR LOW MAP REGISTER 
. »« AND HIGH MAP TOO 
. LOAD INTERRUPT VECTOR 


. SET UBE FOR NPR-DATI-1 XFER 
. IS THE TRANSFER COMPLETE 
. NO, THEN WAIT FOR IT TO BE COMPLETE 


. . LOWER PRIORITY 
. WAIT FOR INTERRUPT 


. NO INTERRUPT ON NXM 
. RAISE PRIORITY 


. » ADJUST STACK 
. SELECT NEXT MAP PAIR REGISTER 
. IF NO CARRY, BRANCH 


. . OTHERWISE INCREMENT ADDRESS <17-16> 
. . ALL DONE? 
. IF LESS THAN, BRANCH 


WITH 22-BIT MODE AND 18-BIT 


MOV R2,@9BE1BA 
CLR aBE1CR2 
MOV R3,9BE1CR2 
CLR @BE 108 
MOV #-1,9BE1CC 
CLR CR1)- 
CLR CR1)+ 
MOV #10$ , @BEIVEC 
MOV #340 , BBEIPSW 
; 
; GO DO THE TRANSFER 
; 
MOV #2041 ,@BE1CR1 
5$: BIT #BIT7,@BE1CR1 
BEQ 5$ 
BIT #BITO8 , AaBE1ICR2 
BNE 6$ 
ERROR +22 
BR 11$ 
6$: MTPS #140 
ERROR +22 
MTPS $340 
BR 1i$ 
10$: ADD 04,SP 
11%: ADD #20000 ,R2 
BCC 12$ 
INC RS 
12$: CMP $TMPO,R1 
BHI $ 
; CHECK IF DONE 
; 
BIT #BITOS,KMCR 
BEQ 13$ 
BIS #BITO8 ,OCSR 
MOV $27 ,KMCR 
BIC #BITOS8 ,OCSR 
BR. i$ 
; 
; IF ANY UNIBUS MEMORY PRESENT, 
; 
13$: CMP #MAPL37,$TMPO 
BEQ 200$ 
MOV #140000 , ABE1BA 
MOV #3,@BE1CR2 
CLR MAPL 36 
CLR MAPH36 
MOV #123456 , a¢0 
CLR @BE 108 
MOV #2071 ,@BE1CR1 
20$: TSTB a@BE1CR1i 
BPL 20$ 
CMP #123456 , 9@BE108 
BNE 200$ 


. 22-BIT MODE DONE? 
. IF YES, BRANCH TO EXIT 
. ENABLE DIAGN. MODE 


. DO AGAIN IN 22-BIT MODE 


DO RELOCATION THRU IT 


EN ND 


ANY UNIBUS MEMORY? 


; IF NO, EXIT 


TRY TO DO DATI THRU 
THRU MAP 36 REGISTER 
we MAPPING REGISTER 


; P 
SET UP PATTERN AT 0 


CLEAR DATA REGISTER 
START DATI 
WAIT TILL 


DONE 
; DATA CAME FROM 8#0? 


IF NOT, BRANCH 





SEQ 6114 
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4766 020370 
4767 020372 
4768 020400 
4769 020406 


104033 
052737 
013737 
042737 


LY 
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ERROR +33 
000400 177730 200%: # BIS #BITO8 ,DCSR 
001162 177734 MOV $TMP1,KMCR 
000400 177730 BIC #BITO08,DOCSR 


RELOCATED UNIBUS MEMORY 
ENABLE DIAGN. MODE 
RESTORE KMCR 

DISABLE DIAGN. MODE 


SEQ 0115 


| 


M9 
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MAIN MEMORY DISABLE THRU UBE 


SEQ 0116 


pid .SBTTL MAIN MEMORY DISABLE THRU UBE 
4773 ;* THIS TEST CHECKS THAT A MAIN MEMORY RESPONSE IS DISABLED WHENEVER 
4774 ;* THE APPROPRIATE BITS IN KMCR ARE SET. THE FIRST 32K ARE NOT GOING 
4775 ;* TO BE CHECKED. THE DMA DATI CYCLES WILL BE DONE THAT SHOULD CAUSE 
pia ;* NXM BIT TO BE SET IN THE UBE REGISTER. 
4778 ; BGNTST 
4779 ; 
4780 ; SIZE THE MEMORY AVAILABLE 
4781 ; DO FOR ALL MEMORY PAGES 
4762 ; . LET KMCR DISABLE THAT PAGE IN MEMORY 
4783 ; . DO DATI TO THAT LOCATION 
4784 ; . IF NO TIMEOUT THEN 
4785 ; . «+ ERROR DISABLED MEMORY DOES NOT TIMEOUT 
4786 : . ENDIF 
4787 ; ENDDO 
4788 ; 
4789 ; ENDTST 
4790 ; 
4791 aa al la alee eee 
4792 
4793 ry eee og ye = eg oe ae uunnmememaammnas 
;*TEST MAIN MEMORY DISABLE THRU UBE 
i A I oR ae AR as 3 
020414 000004 1ST57: SCOPE 
4795 020416 005737 001720 TST PMIS ; ANY PMI MEMORY? 
4796 020422 001561 BEQ TST60 33 IF NONE, EXIT TEST 
4797 3 
4798 ; ENABLE MMU AND SIZE MEMORY 
4799 ; 
4800 020424 004737 002276 JSR PC ,MAPPR ; REMAP PROGRAM AREA 
4801 020430 052737 000001 177572 BIS #BITOO,MMRO ; ENABLE MMU 
4802 020436 052737 000020 172516 BIS SB ITO4 ,.MMRS ; ENABLE 22-BIT MODE 
4803 020444 013702 001720 MOV PMIS,R2 : STORE HIGHEST PAGE 
4804 020450 042737 000001 177572 BIC #BITOO ,.MMRO ; DISABLE MMU 
4805 ; 
4806 ; SETUP MAPPING REGISTERS AND KMCR 
4807 3 
4808 020456 052737 172516 BIS BITS, BOMMRS ; ENABLE UNIBUS MAPPING 
4 013737 177734 001160 MOV KMCR , $TMPO ; SAVE KMCR 
4810 020472 052737 000400 177730 BIS #BITO8,DCSR ; ENABLE DIAGNOSTIC MODE 
48 012737 000067 177734 MOV $67 ,KMCR ; 18-BIT, >32K DISABLED 
48 042737 000400 177730 BIC #BITO8 ,OCSR ; DISABLE DIAGNOSTIC MODE 
4813 020514 37 170200 CLR 00 ; CLEAR LOW MAP REGISTER 
4814 020520 012737 000001 170202 MOV #1 ,MAPHOO ; POINT TO 32K 
4815 020526 012777 020640 161462 MOV 20% , @BE1VEC ; . LOAD INTERRUPT VECTOR 
4816 020534 012777 000340 161456 MOV $340 , BBE IPSW ; 
4817 020542 012737 002000 172354 MOV #2000 , KIPAR6 ; INITIAL POINTER TO ABOVE 32K 
4618 ; 
4819 ; DO DATI TO DISABLED MEMORY 
$ 
4821 020550 004737 10$: JSR PC, IUBE ; INTIALISE UBE 
4622 020554 005077 161426 CLR aBE1BA ; . ADDRESS TO ACCESS THRU MAP O 
3 020560 012777 177777 161416 MOV 6-1,@8BE1CC ; . ONE CYCLE 
4824 020566 012777 002041 161414 MOV $2041 ,@BE1CR1 ; . SET UBE FOR NPR-DATI-1 XFER 











N9 
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SE@ 0117 


| 
157 § MAIN MEMORY DISABLE THRU UBE | 


4825 020574 032777 000200 161406 14%: BIT @B1T7,@BE1CRi ; . IS THE TRANSFER COMPLETE 
4826 020602 001774 BEQ 14$ ; . NO, THEN WAIT FOR IT TO BE COMPLETE 
7 020604 032777 000400 161402 BIT @B1T08,@BE1CR2 ; . NXM SET? 
4828 020612 001002 BNE 15$ ; . IF SO, BRANCH 
4829 020614 104022 ERROR +22 ; . NO NXM 
4830 020616 000412 BR 25% ; 
31 020620 106427 000140 15$: MTPS 140 ; . LOWER PRIORITY 
32 020624 000240 NOP ; . WAIT FOR INTERRUPT 
4833 020626 000240 NOP ; 
4834 020630 104022 ERROR +22 ; . NO INTERRUPT ON NXM 
4835 020632 106427 000340 MTPS 340 ; . RAISE PRIORITY 
020636 000402 BR 25$ ; . BRANCH 
4937 020640 062706 000004 20%: ADD 04,SP ; . ADJUST STACK 
fn 
4839 ; CHANGE PAGE ACCESSED AND CHECK END CONDITIONS 
. 
i 023702 172354 25$: CMP KIPARG ,R2 ; . ALL PAGES DONE? 
4842 020650 103032 BHIS 30% ; . IF YES, EXIT 
4843 020652 062737 004000 170200 ADD $4000,MAPLOO =; . INCREMENT IN 1K 
020660 103002 Bcc 26% ; . IF NO CARRY, BR 
4845 020662 005237 170202 INC MAPHOO ; . OTHERWISE INCR. HIGH MAP 
020666 032737 017777 170200 26%: BIT 017777,MAPLOO ; . IS IT ON 4K BOUNDARY? 
4847 020674 001017 BNE 278 ; . IF NOT, BRANCH 
4848 020676 062737 000200 17235- ADD $200 ,KIPAR6 ; . INCREMENT COUNTER 
4849 020704 052737 000400 177730 BIS @B1IT08,0CSR ; . ENABLE DIAG. MODE 
4850 020712 005337 177734 DEC KMCR ; . ACCESS NEXT HIGHER LOCATION 
4851 020716 032737 000040 177734 BIT @BITOS,KMCR ; . ALL 128K DONE? 
020724 001404 BEQ 30% ; . IF SO, 
4853 020726 042737 000400 177730 BIC #B81T08,0CSR ; . DISABLE DIAG. 
020734 000705 27%: BR 108 ; . DO FOR THE NEXT PAGE 
4855 020736 042737 000040 172516 30%: BIC @B1T05,MMRS ; DISABLE I 
4856 020744 737 000400 177730 BIS oB1T08,DCSR ; ENABLE DIAG. MODE 
4857 020752 013737 001160 177734 MOV $TMPO,KMCR ; REST 
4858 020760 042737 000400 177730 BIC @B1T08,DCSR ; DISABLE DIAG. MODE 
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SE@ 0118 
TES’ - UNIBUS DEVICE DATOB CYCLE 
oni .-SBTTL TEST - UNIBUS DEVICE DATOB cYCLe 
4863 ~— TEST WILL SEE IF _ KTJ11-B MODULE CAN EXECUTE 
4864 A UNIBUS DEVICE DATOB 
4865 - 
4866 
4867 ; BGNTST 
4868 8 
4869 3% 
pe da ;* SET UP UBE FOR A DATOB CYCLE 
;* 
4872 $ LET R1 := _ADORESS OF THE WRITE BUFFER 
4873 ; LET (Ri) : = 0 ;CLEAR OUT THE LOCATION 
4874 3 LET BE1DB. :* 77777 SDATA PATTERN -. 77777 
4875 3 LET BEICC := -1 sSET FOR 1 DATA XFER 
4876 3 LET BEIBA := Ri ;ADDRESS IS FIRST LOCATION IN WRITE BUFFER 
4877 : SET UBE FOR NPR-DATOB-1 XFER 
4876 ; SET OFF THE TRANSFER 
yo ia : WAIT FOR THE TRANSFER TO COMPLETE 
;* 
— ;* CHECK IF THE TRANSFER OCCURED CORRECTLY 
$ 
4883 $ IF CR1) NEQ #377 THEN 
4884 3 . ERROR TRANSFER DID NOT EXECUTE CORRECTLY 
4885 $ ENDIF 
4886 ; 
4887 ; ENDTST 
4888 $ 
4889 PAAR RASA RENEE TREN ENS EAERE SN SRE MSRES RES SEROR SOONG BEERS SHS HEREHEReCene 
4899 
4891 wert i tii ti tititiiiiiiiiitiititiiiittiiiiiiiiiititittitiiti +t? ttt? | 
;*TEST 60 UNIBUS 0c vICE DATOB CYCLE TEST 
PweT Ti titi titi iititititigiiiititiiitiiiitiiititittittititiit itt ttt 
020766 000004 TST60: SCOPE 
4892 
4893 020770 004737 002502 JSR PC, IUBE ; INITIALIZE THE UBE 
4894 020774 012701 001734 MOV @WRIBUF .R1 ; GET POINTER TO WRITE BUFFER 
4895 021000 005011 CLR CR1) ; CLEAR OUT THE LOCATION 
4896 021002 012777 9077777 161172 MOV 477777 .@BE108 ; SET DATA BUFFER UP 
4897 021010 012777 177777 161166 MOV #-1,3BE1CC ; SET FOR 1 DATA TRANSFER 
pot 021016 010177 161164 MOV R1,@BE1BA : POINT UBE XFER TO WRITE BUFFER 
48 | ; 
4900 ; DO THE TRANSFER 
4901 ; 
4902 021022 012777 003441 161160 MOV $3441 ,9BEiCR1 ; SET UP UBE FOR NPR-DATOB-1 XFER 
4903 021030 032777 000200 161152 5%: BIT #BIT7, @BE1ICR1 ; IS THE TRANSFER COMPLETE ? 
pean 021036 001774 BEQ 5$ ; NO, THEN WAIT FOR IT TO COMPLETE 
4 : 
pas ; CHECK THE TRANSFER 
3 
4908 021040 021127 000377 CMP (R11), #377 ; WAS THE TRANSFER CORRECT ? 
4909 021044 001401 BEQ TST61 3; YES GO TO THE NEXT TEST 
pi ry 021046 104033 ERROR +33 ; ERROR TRANSFER WAS INCORRECT 
11 
4912 


_— <_—_———_e — a 


| 
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021050 000004 
4952 021052 004737 


4958 021056 012701 
4959 021062 012702 
4960 021066 012721 
4961 021072 077203 


4966 
4967 021074 012777 


———— ee ee 
e . 
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TEST - UNIBUS DEVICE DATIP CYCLE 


002502 


052525 


001734 161104 


-SBTTL TEST - UNIBUS DEVICE DATIP CYCLE 


;* THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
* A UNIBUS DEVICE DATIP CYCLE. 


;* 

} 

; BGNTST 

;* 

;* INITIALTZE WRITE BUFFER FOR DATIP CYCLE 
;* 

; LET R1 := POINTER TO WRITE BUFFER 

; DO FOR R2 := 1 708 

; = 1 (R1)+ := #52525 

; ENDDO 

;* 

;* SET UP UBE TO DO 8 DATIP'S TO WRITE BUFFER 
;* 

; LET BE1BA := ADDRESS OF WRITE BUFFER 


; LET BEICC := -8. ;SET FOR 8 TRANSFERS 
; SET UBE FOR NPR-DATIP-1 XFER 

i SET OFF THE TRANSFER 

; WAIT FOR TRANSFER TO BE COMPLETE 

; 

; 


CHECK IF DATIP WAS EXECUTED CORRECTLY 


LET R1 := ADDRESS OF WRITE BUFFER 
DO FOR R2 := 1 T0 8 

IF (R1)+ NEQ@ 125252 THEN 

a" TRANSFER DID NOT EXECUTE CORRECTLY 


FF SSSSSSSHSESSSSSSSSSSSSSSSSSSSSSESSSSSSSESSESSSESSSSESESRSESRSEEERESERELES 


;*TEST 61 UNIBUS DEVICE DATIP CYCLE TEST 
5 ESSA ESE SESE ESAS E SESE SEES ESSERE SEE REEEHEEEREEEEEE SEES 


TST61: SCOPE 
JSR PC, IUBE ; INITIALIZE THE UBE 


; 
; INITIALIZE WRITE BUFFER FOR DATIP CYCLE 
; 


MOV OWRTIBUF ,R1 ; GET POINTER TO WRITE BUFFER 
MOV #8. ,R2 ; SET UP LOOP COUNTER 

S$: MOV #52525,(R1)+ ; . INITIALIZE WRITE BUFFER LOCATION 
SOB R2,5$ ; . HAVE WE DONE IT 8 TIMES ? 


; 
; SET UP UBE TO 8 DATIP'S TO WRITE BUFFER 
; 


MOV @WRIBUF,@BE1BA ; SET UP UBE TO WRITE BUFFER 


i enneesinieetienntinnttmnemetetaenee 
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005077 
012777 
012777 
032777 
001774 


012701 
012702 
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161106 
177770 
002441 


161070 
161066 
161060 


10$: 


; 
; CHECK 
3 


20$: 


SEQ 0120 «SC 
CLR @BE1CR2 ; 
MOV #-8.,@BE1CC ; SET UP FOR 8 TRANSFERS 
MOV $2441,98E1CR1 ; SET UP UBE FOR NPR-DATIP-1 XFER 
BIT @BIT7,@BE1CR1 ; IS THE TRANSFER COMPLETE ? 
BEQ 10$ ; NO,THEN WAIT FOR IT TO BE COMPLETE 
IF DATIP WAS EXECUTED CORRECTLY | 
MOV OWRTBUF ,R1 ; GET POINTER TO WRITE BUFFER 
MOV #8. ,R ; SET UP LOOP COUNTER 
CMP (R1)+,#125252 ; . WAS THE TRANSFER CORRECT ? 
BEQ 20$ ; . YES,THEN GO SEE IF WE ARE DONE CHECKING 
ERROR +33 ; . NO, THEN ERROR IN THE TRANSFER 
SOB R2,15$ ; . HAVE WE CHECKED ALL THE XFERS 


‘ 
— -—- «- 
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-SBTTL TEST - UNIBUS DEVICE I/O PAGE READ CYCLE 


3* THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
;* A UNIBUS DEVICE I/0 PAGE READ CYCLE. THIS CONSISTS OF 
;* FOUR DIFFERENT TYPES OF READS : 


;* 1. UNIBUS DEVICE PMI I/0 PAGE READ CYCLE 

;* 2. UNIBUS DEVICE TO UNIBUS DEVICE I/0 PAGE READ CYCLE 
;* 3. UNIBUS DEVICE BOOT ROM READ CYCLE 

;* 4. UNIBUS DEVICE MAP REGISTER READ CYCLE. 


;* 

:* IT ALSO WILL CHECK THAT A UNIBUS DEVICE READ CYCLE NOT 
* OF THE ABOVE THREE TYPES SHOULD CAUSE A TIMEOUT. 

;* 


BGNTST 
DO A UNIBUS DEVICE PMI I/0 PAGE READ CYCLE 


LET BEIBA := ADDRESS OF CSR OF MEMORY BOARD 

LET BEICC := -1i ;SET FOR 1 TRANSFER 
SET UBE FOR A NPR-DATI-1 DATA XFER 

SET OFF THE TRANSFER 

WAIT FOR THE TRANSFER TO BE COMPLETE 

IF BE1DB NEQ CONTENTS OF MEMORY CSR THE 


x 
* 


ENDIF 
;* 
* DO A UNIBUS DEVICE TO UNIBUS DEVICE I/0 PAGE READ CYCLE 
: 


LET BEIBA := ADDRESS OF BE1BA 

LET BEICC := -1 ;SET FOR 1 TRANSFER 
SET UBE FOR A NPR-DATI-1 DATA XFER 

SET OFF THE TRANSFER 

WAIT FOR THE TRANSFER TO BE COMPLETE 

IF BE1DB NEQ@ ADDRESS OF BE1BA 


é 

? 

; 

3 

e 

; 

: 

; N 
; . ERROR UNIBUS DEVICE PMI I/0 PAGE READ CYCLE DID NOT EXECUTE CORRECTLY 
é 

: 

; 

; 

; 

; 

; 


—— ae 


SEQ 0121 ~*~ 


ERROR UNIBUS DEVICE TO UNIBUS DEVICE I/0 PAGE READ CYCLE DID NOT EXECUTE CORRECTL 


ENDIF 
DO A UNIBUS DEVICE BOOT ROM READ CYCLE 


LET BEIBA := 773000 

LET BEICC := -1 ;SET FOR 1 TRANSFER 
SET UBE FOR A NPR-DATI-1 DATA XFER 

SET OFF THE TRANSFER 

WAIT FOR THE TRANSFER TO BE COMPLETE 

IF BE1DB NEQ #173000 THEN 


* #2 


DO A UNIBUS DEVICE MAP REGISTER READ CYCLE 


LET BEIBA := 770200 ;UNIBUS MAP RECISTER #0 
LET BEICC := -1 ;SET FOR 1 TRANSFER 

SET UBF FOR A NPR-DATI-1 DATA XFER 

SET OFr THE TRANSFER 

WAIT FOR THE TRANSFER TO BE COMPLETE 


7 ef Ge © @s © @ Ge © Ge Ge Ge Se © Ge @s Se Ge Ge Se 
*# & 








inn UNIBUS DEVICE BOOT ROM READ CYCLE DID NOT EXECUTE CORRECTLY 





f 
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004737 


013777 
012777 
012777 
012777 
032777 
001774 


027777 
001401 
104033 


013777 
012777 
012777 
012777 
032777 
001774 


023777 
001401 
104033 


= ee 
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002502 


001732 
000003 
177777 


002041 
000200 


160504 


002206 
000003 
177777 


002041 
000200 


002206 





161016 


160752 


160744 
160744 
160726 
160724 
160716 


160700 


———— i . tnuittdnnneneentnenstimsindente meena 
ieee 


IF BE10B NEQ 8#770200 THEN 


ee 


SEQ 0122 «CS! 


ERROR UNIBUS DEVICE MAP REGISTER READ CYCLE DID NOT EXECUTE CORRECTLY 


ENDIF 
yw 


* 
* 
LET BEICC := -1 
SET OFF THE TRANSFER 


WAIT FOR THE TRANSFER TO BE COMPLETE 
IF TRANSFER DIO NOT TIMEOUT THEN 
. ERROR AN ILLEGAL UNIBUS DEVICE CYCLE HAS OCCURED 


ENDIF 


: 

; 

; 

: 

; DO AN ILLEGAL UNIBUS DEVICE I/0 PAGE READ CYCLE 
; 

: LET BEIBA := 777730,777732, 777734 
; 

; SET UBE FOR NPR-DATI-1 DATA XFER 
; 

; 

; 

i 

; 

; 

; 

; 


;DCSR,ODR,KMCR ADDRESS 
31 DATA TRANSFER 


FF SSSESSKSSSSSESS SSE SSA SESESEEEESESEEEEESEEESEEESEEEESEEEEEEEEEEEEES 


;*TEST 62 


UNIBUS DEVICE I/0 PAGE READ CYCLE 


8s FSSA SSES ESSERE EES SSE EEEESESEESEEESEEEEEEEEEESESEEEEEEEEEEESE 


TST62: SCOPE 
JSR PC, IUBE 


; 
; DO A UNIBUS DEVICE PMI I/0 PAGE 
; 


3 
; 
: 
MOV $2041 ,@BE1CRi ; 
#BIT7,aBE1CR1 3 
5$ : 
; 
; CHECK OUT THE TRANSFER 
CMP oe 3 
ERROR +33 ; 


; 
; DO A UNIBUS DEVICE UNIBUS DEVICE I/0 PAGE CYCLE 


. 

6$: MOV BE1BA,@BE1BA 
MOV #3,@BE1CR2 
MOV #2041, 9BE1CR1 

_ 


i 
; CHECK OUT THE TRANSFER 
CMP BE1BA,@BE10B 
10$ 
ERROR +33 


o 
m 
© 


; INITIALIZE THE UBE 


CYCLE 


GET ADDRESS OF MEMORY CSR ADDRESS 
SET THE UPPER TWO ADDRESS BITS 


SET FOR 1 TRANSFER 


SET UBE FOR NPR-DATI-1 XFER 
ARE WE DONE THE TRANSFER ? 
NO,THEN FOR WAIT FOR IT TO 


WAS THE TRANSFER CORRECT 


YES, THEN GO DO BOOT ROM READ 
NO, THEN ERROR IN READ CYCLE 


GET AN ADDRESS IN I/0 PAGE 
SET THE UPPER TWO ADDRESS BITS 


SET FOR 1 TRANSFER 


SET UBE FOR NPR-DATI-1 XFER 
ARE WE DONE THE TRANSFER ? 
NO, THEN FOR WAIT FOR IT TO 


WAS THE TRANSFER CORRECT 


YES, THEN GO DO BOOT ROM READ 
NO, THEN ERROR IN READ CYCLE 
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T62 


— —-- 


021416 
021424 


021426 


012777 
012777 
012777 
012777 
032777 
001774 


052737 
023777 
001401 
104033 


012777 
012777 
012777 
012777 
032777 
001774 


023777 
001401 
104033 


012777 
012777 
012701 


077142 


— en 
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UNIBUS DEVICE I/0 PAGE READ CYCLE 
; DO A UNIBUS DEVICE BOOT ROM READ CYCLE 


170200 


002502 





177520 
160620 


160612 
160612 
160574 
160572 
160564 


160546 


160550 
160544 


160516 
160500 
160476 


160464 


160440 


; 
10$: 


208: 


35$: 


40$: 


45$: 


MOV #173000, @BE1BA 
MOV #3,@8BE1CR2 

MOV #-1,9BE1CC 

MOV #2041 ,8BE1CR1 
BIT #BIT7,@BE1CR1 
BEQ 15$ 

OUT THE TRANSFER 

BIS #BITO7,BCSR 
CMP 84173000 , 8BE10B 
BEQ 20$ 

ERROR +33 

; 

; DO A UNIBUS DEVICE MAP REGISTER 
MOV #170200, @BE1BA 
MOV #3 ,9BE1CR2 
MOV #2041, @BE1CR1 
BIT #BIT7,@BE1CR1 
BEQ 25$ 
OUT THE TRANSFER 
CMP 84170200, @BE10B 
BEQ 30$ 
ERROR +33 
ILLEGAL UNIBUS DEVICE I/0 
MOV #40$ , BBELVEC 
MOV #340 , BBELPSW 
MOV #3,R1 
MOV #177730,R2 
MOV R2,@BE1BA 
MOV #3 ,8BE1CR2 
MOV #-1,9BE1CC 
MOV #2041 ,@BE1CRi 
MTPS #140 
BIT #BIT7,@BE1CR1 
BEQ 35$ 
NOP 
NOP 
ERROR +33 
MTPS #340 
BR 45$ 
ADD #4, SP 
BIT #BITO8 , A@BEICR2] 
BNE 45$ 
ERROR +33 
TST CR2)+ 
JSR PC, IUBE 
SOB R1,31$ 


tf © Se 2 of GS Se Ge Ge Se Se GF Se Gt Ge Ge Ge we Ge Gs Ge we 


(rte 2 + ee i eee 


GET ADDRESS OF OF THE BOOT ROM 
SET THE UPPER TWO ADDRESS BITS 
SET FOR 1 TRANSFER 

SET UBE FOR NPR-DATI-1 XFER 
ARE WE DONE THE TRANSFER ? 

NO, THEN FOR WAIT FOR IT TO 


SELECT RIGHT ROM 

WAS THE TRANSFER CORRECT 

YES, THEN GO DO UNIBUS DEVICE MAP REGISTER READ 
NO, THEN ERROR IN READ CYCLE 


READ 


GET ADDRESS OF THE MAP REGISTER 
SET THE UPPER TWO ADDRESS BITS 
SET FOR 1 TRANSFER 

SET UBE FOR NPR-DATI-1 XFER 

ARE WE DONE THE TRANSFER ? 

NO, THEN FOR WAIT FOR IT TO 


WAS THE TRANSFER CORRECT 
YES, THEN GO DO ILLEGAL UNIBUS DEVICE 1/0 READ 
NO, THEN ERROR IN READ CYCLE 


PAGE READ 
SET UP INTERRUPT VECTOR 


DO FOR 3 REGISTERS 

STARTING WITH DCSR CTHEN DOR, KMCR) 
GET ADDRESS OF THE DIAGNOSTIC REGISTER 
SET THE UPPER TWO ADDRESS BITS 

SET FOR 1 TRANSFER 

SET UBE FOR NPR-DATI-1 XFER 

LOWER PRIORITY 

ARE WE DONE THE TRANSFER ? 

NO, THEN FOR WAIT FOR IT TO 

WAIT FOR INTERRUPT 


ERROR KTJ11 RESPONDED TO AN ILLEGAL ADDRESS 
RAISE PRIORITY BACK 


CLEAN UP THE STACK AND THEN GO DO NEXT TEST 
NXM SET? 

IF SET, BRANCH 

NXM NOT SET ON ILLEGAL REFERENCE 

GET ADDRESS OF NEXT REGISTER 

CLEAN UP UBE 

DO FOR ALL 3 REGISTERS 


— or = 


SEQ 0123 
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SEQ 0124 
TEST - UNIBUS DEVICE I/0 PAGE WRITE CYCLE = Sia 
ates .SBTTL TEST - UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
5158 ;* THIS TEST WILL SEE IF THE KTJ11-B MODULE CAN EXECUTE 
5159 ;* A UNIBUS DEVICE I/0 PAGE WRITE CYCLE. THIS CONSISTS OF 
rey ;* TWO DIFFERENT TYPES OF WRITES : 
;* 
5162 ;* 1. UNIBUS DEVICE PMI I/0 PAGE WRITE CYCLE 
5163 ;* 2. UNIBUS DEVICE UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
gree 4 3. UNIBUS DEVICE MAP REGISTER WRITE CYCLE. 
5166 IT ALSO WILL CHECK THAT A UNIBUS DEVICE WRITE CYCLE NOT 
aoe ;* OF THE ABOVE THREE TYPES SHOULD CAUSE A TIMEOUT. 
;* 
5169 ; 
5170 ; BGNTST 
5171 ; 
5172 ;* 
aaa ;* DO A UNIBUS DEVICE PMI I/0 PAGE WRITE CYCLE 
tk 
5175 : LET BE1DB := 52525 
5176 ; LET BE1BA := ADDRESS OF CSR OF MEMORY BOARD 
5177 : LET BEICC := -1 ;SET FOR 1 TRANSFER 
5178 ; SET UBE FOR A NPR-DATO-1 DATA XFER 
5179 ; SET OFF THE TRANSFER 
5180 ; WAIT FOR THE TRANSFER TO BE COMPLETE 
5181 ; IF CONTENTS OF MEMORY CSR NEQ 52525 THEN 
5182 3 . ERROR UNIBUS DEVICE PMI I/0 PAGE WRITE CYCLE DID NOT EXECUTE CORRECTLY 
5183 ; ENDIF 
5184 ;* 
foes ;* DO A UNIBUS DEVICE TO UNIBUS DEVICE WRITE CYCLE 
;* 
5187 : IF 2 UBE'S THEN 
5188 ; LET BE2DB := 125252 ;DATA PATTERN 
5189 ; LET BE2BA := ADDR. OF BE2DB ;UNIBUS I/0 PAGE ADDRESS 
5190 : LET BE2CC := -1 ;SET FOR 1 TRANSFER 
5191 ; SET UBE FOR A NPR-DATO-1 DATA XFER 
5192 ; SET OFF THE TRANSFER 
5193 ; WAIT FOR THE TRANSFER TO BE COMPLETE 
5194 ; IF BE10B NEQ #125252 THEN 
5195 ; ERROR UNIBUS DEVICE TO UNIBUS DEVICE WRITE CYCLE DID NOT EXECUTE CORRECTLY 
5196 ; ENDIF 
5197 ; ENDIF 
5198 ;* 
Fahad ;* DO A UNIBUS DEVICE MAP REGISTER WRITE CYCLE 
;* 
5201 ; LET BE1DB := 52525 ;DATA PATTERN 
5202 ; LET BEIBA := 770200 ;UNIBUS MAP REGISTER #0 
5203 : LET BEICC := -1 ;SET FOR 1 TRANSFER 
5204 3 SET UBE FOR A NPR-DATO-1 DATA XFER 
5205 ; SET OFF THE TRANSFER 
5206 ; WAIT FOR THE TRANSFER TO BE COMPLETE 
5207 ; IF MAP REGISTER O NEQ #52525 THEN 
5208 $ . ERROR UNIBUS DEVICE MAP REGISTER WRITE CYCLE DID NOT EXECUTE CORRECTLY 
5209 ; ENDIF 
5210 ;* 
at ;* DO A UNIBUS DEVICE TO BOOT ROM WRITE CYCLE 
;* 





- ee eS eS 
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SE 
TEST - UNIBUS DEVICE I/0 PAGE WRITE CYCLE = Gaz 
5213 ; LET BE1BA := 773000 
5214 ; LET BEICC := -i ;SET FOR 1 TRANSFER 
5215 ; SET UBE FOR A NPR-DATO-1 DATA XFER 
5216 ; SET OFF THE TRANSFER 
5217 ; WAIT FOR THE TRANSFER TO BE COMPLETE 
5218 ; IF NO TIMEOUT THEN 
5219 : . ERROR UNIBUS DEVICE BOOT ROM WRITE CYCLE DID NOT EXECUTE CORRECTLY 
5220 ; ENDIF 
5221 :* 
aoe ;* DO AN ILLEGAL UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
;* 
5224 : LET BE1DB := 52525 ;DATA PATTERN 
5225 ; LET BEI1BA := 777730,777732,777734 ;DCSR, DDR, KMCR ADDRESSES 
5226 ; LET BEICC := -1 31 DATA TRANSFER 
5227 F SET UBE FOR NPR-DATO-1 DATA XFER 
5228 ; SET OFF THE TRANSFER 
5229 ; WAIT FOR THE TRANSFER TO BE COMPLETE 
5230 ; IF TRANSFER DID NOT TIMEOUT THEN 
5231 ; . ERROR AN ILLEGAL UNIBUS DEVICE CYCLE HAS OCCURED 
5232 ; ENDIF 
5233 ; DISABLE UNIBUS MAPPING 
5234 ; 
5235 ; ENDTST 
5236 ; 
5237 Bn ee en nn en nn nn nn ne enn oe ee eee 
5238 
5239 Mwetiiititiiititiiitiitiiiittittitittitiitit Tit iti ttt titi tittt tt ttt tt 
;*TEST 63 UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
MeTitiitiitiittititititittititiiititititi titi titi titi i titi ittit ttt tt 
ance 021570 000004 TST63: SCOPE 
oes 021572 004737 002502 JSR PC, IUBE ; INITIALIZE THE UBE 
5243 ; DO A UNIBUS DEVICE PMI I/0 PAGE CYCLE 
5244 ; 
5245 021576 017737 160130 001160 MOV @MCSR , $TMPO ; STORE MEMORY CSR 
5246 021604 013777 001732 160374 MOV MCSR ,@BE1BA ; GET ADDRESS OF MEMORY CSR 
5247 021612 012777 000003 160374 MOV #3 ,@3BE1CR2 ; SET UPPER TWO ADDRESS BITS 
5248 021620 012777 040000 160354 MOV #BIT14,a8BE108 ; GET WRITE PATTERN 
5249 021626 012777 177777 160350 MOV #-1,@BE1CC ; SET FOR 1 XFER 
5250 021634 012777 003041 160346 MOV #3041 ,@BE1CR1 ; SET UBE FOR NPR-DATO-1 XFER 
5251 021642 032777 000200 160340 5%: BIT #BIT7,aBE1CR1i ; IS THE TRANSFER COMPLETE ? 
neat 021650 001774 BEQ 5$ ; NO, THEN WAIT FOR IT TO COMPLETE 
aeee ; CHECK THE TRANSFER 
$ 
$256 021652 032777 040000 160052 BIT #BIT14,8MCSR ; WAS THE TRANSFER CORRECT ? 
5257 021660 001001 BNE 6$ ; YES, THEN GO DO A MAP REGISTER WRITE 
cae 021662 104033 ERROR +33 ; NO, THEN ERROR IN THE TRANSFER 
ty ; DO A UNIBUS DEVICE TO UNIBUS DEVICE WRITE CYCLE 
; 
5262 021664 013777 001160 160040 63: MOV $TMPO,@MCSR ; RESTORE MEMORY CSR 
5263 021672 022737 000002 001722 CMP #2, UBECT ; 2 UBE'S? 
5264 021700 001030 BNE 10$ ; NO, SKIP SUBTEST 
5265 021702 013777 002202 160316 MOV BE1D0B8 , ABE2BA ; GET ADDRESS OF TARGET UBE REGISTER 
5266 021710 012777 000003 160316 MOV #3, @BE2CR2 ; SET UPPER TWO ADDRESS BITS 
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763 UNIBUS DEVICE I/0 PAGE WRITE CYCLE 


SEQ 0126 


5267 021716 012777 1252 160276 MOV #125252,8B8E20B ; GET WRITE PATTERN 
5268 021724 012777 177777 160272 MOV #-1,@BE2CC ; SET FOR 1 XFER 
5269 021732 012777 003041 160270 MOV #3041 ,@BE2CR1 ; SET UBE FOR NPR-DATO-1 XFER 
5270 021740 032777 000200 160262 8%: BIT #BIT7,@BE2CRi ; IS THE TRANSFER COMPLETE ? 
Sees 021746 001774 BEQ 8$ ; NO, THEN WAIT FOR IT TO COMPLETE 
; 
3o78 ; CHECK THE TRANSFER 
5 
5275 021750 027727 160226 125252 CMP @BE10B8,#125252 ; WAS THE TRANSFER CORRECT ? 
5276 021756 001401 BEQ 10$ ; YES, THEN GO DO A MAP REGISTER WRITE 
aor 021760 104033 ERROR +33 ; NO, THEN ERROR IN THE TRANSFER 
; 
foe ; DO A UNIBUS DEVICE MAP REGISTER WRITE CYCLE 
; 
5281 021762 005037 170200 10$: CLR MAPLOO ; CLEAR MAP REGISTER PAIR 
5282 021766 005037 170202 CLR MAPHOO ; 
5283 021772 012777 170200 160206 MOV #MAPLOO,@BE1BA ; GET ADDRESS OF MAP REGISTER 
5284 022000 012777 000003 160206 MOV #3,@9BE1CR2 ; SET UPPER TWO ADDRESS BITS 
5285 022 012777 052525 160166 MOV #52525 ,8BE108 ; GET WRITE PATTERN 
5286 022014 012777 177776 160162 MOV #-2,9BE1CC ; SET FOR 2 XFER 
5287 022022 012777 003041 160160 MOV #3041 ,aBE1CR1i ; SET UBE FOR NPR-DATO-1 XFER 
5288 022030 032777 000200 160152 i15$: BIT #BIT7,@BEICR1 ; IS THE TRANSFER COMPLETE ? 
5289 0220 001774 BEQ 15$ ; NO, THEN WAIT FOR IT TO COMPLETE 
cose ; CHECK THE TRANSFER 
; 
5293 022040 023727 170200 052524 CMP MAPLOO , #52524 ; WAS THE TRANSFER CORRECT ? 
5294 022046 001401 BEQ 16$ ; YES, THEN GO DO A MAP REGISTER WRITE 
5295 022050 104033 ERROR +33 ; NO, THEN ERROR IN THE TRANSFER 
5296 022052 022737 000025 170202 i16$: MP #25 , MAPHOO ; SECOND WORD OK 100? 
5297 022060 001401 BEQ 17$ ; IF SO, BRANCH 
be 022062 104033 ERROR +33 ; NO, THEN ERROR IN THE TRANSFER 
3 
Sy ; DO A WRITE CYCLE TO BOOT ROM THAT SHOULD CAUSE A TIMEOUT 
1 ; 
5302 012777 173000 160114 i17$: MOV #173000,3BE1BA ; ADDRESS TO WRITE TO 
5303 022072 012777 177777 160104 MOV #-1,@3BE1CC ; 1 CYCLE 
2100 012777 022146 160110 MOV #19$ ,aBEIVEC ; POINT a VECTOR TO PROGRAM 
5305 022106 012777 000340 160104 MOV #340, @BEIPSW ; AT PRIORITY 
5306 022114 012777 003041 160066 MOV oe :2 DATO-NPR. 
5307 022122 106427 000140 MTPS #140 ; LOWER PRIRITY 
5 022126 105777 160056 18$: TSTB OBE CR1i ; DONE? 
5309 022132 100375 BPL 18$ ; WAIT TILL DONE 
5310 022134 000240 NOP 
5311 21 104033 ERROR +33 ; DIDN'T TIMEOUT ON BOOT ROM WRITE 
$312 022140 106427 000340 MTPS #340 ; RAISE PRIORITY 
$5313 022144 000407 BR 20$ 3 
5314 022146 062706 000004 19$: ADD #4 ,SP ; ADJUST STACK 
5315 0221 032777 000400 160034 BIT #BITO8,@BE1CR2 ; NXM SET? 
5316 022160 001001 BNE 20$ ; IF SET, BRANCH 
= 022162 104033 ERROR +33 ; NXM NOT SET ON BOOT ROM WRITE 
; 
coco ; DO AN ILLEGAL UNIBUS DEVICE I/0 PAGE WRITE CYCLE 
; 
$321 022164 004737 002502 20$: JSR PC, IUBE ; CLEAN UP UBE 
$322 022170 012701 000003 MOV #3,R1 ; DO FOR DCSR,DDR,KMCR 
5323 022174 012702 177730 MOV #177730,R2 ; START WITH DCSR 











_——-- : rere cere eee nen nt” 
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KTJ11-8 DIAGNOSTIC 


763 


012777 


UNIBUS DEVICE I/0 PAGE 


002502 


WRITE CYCLE 


160010 
160004 


157766 
157746 
157742 
172516 
157732 


157720 


157674 


21$: 


25%: 


30$: 


35$: 


K10 
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#30$ , @BE1VEC 


#3041 ,a98E1CR1 
PSW 
#BIT7,BE1CR1 
25$ 


+33 
#340 
35$ 


#4 ,SP 
#BITOS , @BE1CR2 
35$ 


PC, IUBE 
R1,21$ 


SET UP TIMEOUT VECTOR 


GET ADDRESS OF THE DIAGN. REGISTER 
SET UPPER TWO ADDRESS BITS 

GET WRITE PATTERN 

SET FOR 1 XFER 

ENABLE UNIBUS MAPPING 

SET UBE FOR NPR-DATO-1 XFER 

LOWER PRIORITY 

IS THE TRANSFER COMPLETE ? 

NO, THEN WAIT FOR IT TO COMPLETE 
WAIT FOR INTERRUPT 


ERROR - AN ILLEGAL CYCLE DID NOT TIMEOUT 
RAISE PRIORITY BACK 


ADJUST THE STACK AND GO TO NEXT TEST 
NXM SET? 

IF SET, BRANCH 

NXM NOT SET ON ILLEGAL REFERENCE 
GET NEXT DIAGNOSTIC REGISTER 
INITIALISE UBE 

DO FOR ALL OF THEM 


SEQ 0127 


' 
-<4 


EEE TT 
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000004 
004737 


012777 
012777 
012777 
012777 
012777 
105777 
100375 


012701 
010177 


022701 
101337 
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002502 


170200 
177700 
125252 
000003 
003041 
157604 


170200 
157570 
177777 
002041 
157552 
125252 
177777 
002041 
157516 


000052 


170376 





157636 
157626 
157616 
157622 
157610 


157560 
157556 


157534 


157524 
157522 


157500 


L10 


SEQ 0128 


.SBTTL TEST - MAPPING REGISTERS TEST USING UBE 


;* THIS TEST WRITES DIFFERENT PATTERNS TO MAPPING REGISTERS USING 
;* DATI AND DATO CYCLES THRU UBE. 


BGNTST 


ENABLE UNIBUS MAPPING 

WRITE ALL MAPPING REGISTERS WITH “10” PATTERN 
READ ALL REGISTERS BACK CLEARING THE ONE JUST READ 
IF ANY REGISTER DOES NOT HAVE THE PATTERN 

ue IN WRITING TO MAP REGISTERS 


§ SESS ESSE SEEKERS EEEESEEEESEEESEESESEESEEEEKRESEEEEEERE 


;*TEST 64 MAPPING REGISTERS TEST USING UBE 
5 ERE EEE EEE ERE REE EEEEEEEEEEEEEE EEE EEEEEEETOEEEEOSEEEEE SESE ES 
TST64: SCOPE 

JSR PC, IUBE ; CLEAN UP UBE 


i 
; DO DATO TO ALL 100 REGISTERS WITH 125252 AS PATTERN 
i 


MOV #MAPLOO , @BE1BA THE STARTING ADDRESS 
MOV #-100, @BE1CC 64 WORDS TO WRITE TO 
MOV THE PATTERN TO BE WRITTEN 


ADDRESS <17-16> 


; 
; 
#125252,@BE10B ; 
MOV #3, @BE1CR2 ; 

; 


MOV #3041, @BE1CR1 GO DO DATO’S 
i$: TSTB @BE1CR1 ; DONE BIT SET? 
BPL i$ ; WAIT 
; CHECK THAT ALL REGISTERS WRITTEN OK 
$ 
MOV #MAPLOO,R1i ; START WITH MAP REGISTER i 
MOV R1,@BE1BA ; STARTING ADDRESS 
2$ MOV #-1,@8BE1CC : . DO JUST 1 CYCLE 
MOV $2041, @BEICR1 ; . DATI FROM LOW MAP REGISTER 
3$: TSTB aBE1CR1i ; . DONE BIT SET? 
BPL 3$ ; . IF NOT, WAIT 
CMP #125252,@3B8E10B ; . READ OK? 
BEQ 4$ ; . IF SO, BRANCH 
ERROR +33 ; . ERROR IN WRITING AND READING MAP REGISTERS 
4$;: MOV #-1,@BE1CC ; . NOW DO HIGH MAP REGISTER 
MOV #2041 ,@BEICR1 ; . DATI FROM HIGH REGISTER 
5$: TSTB aBEICRi ; . DONE BIT SET? 
BPL ; . IF NOT, WAIT 
CMP #52 ,8BE108 ; . READ OK? 
BEQ $ ; . IF SO, BRANCH 
ERROR +33 ; . ERROR IN WRITING AND READING MAP REGISTERS 
6$: CLR CR1i)-+ ; . CLEAR REGISTER JUST WRITTEN 
CLR CR1)- ; 
CMP #MAPH37,R1 ; . ALL DONE? 
BHI 2$ ; . IF NOT, BRANCH 


' 
LLL BLL LLL LLL AR 


eal - 
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-SBTTL TEST - UNIBUS DEVICE DATI CYCLE WITH CACHE ENABLED 


;* THIS TEST WILL SEE IF THE CACHE OPERATES CORRECTLY 
3* WHEN A UNIBUS DEVICE READ CYCLE IS DONE 
;* 


‘ 

; BGNTST 

. 

; ENABLE THE CACHE 

; ENABLE UNIBUS MAPPING 

;* 

3* CHECK INITIAL SETTING OF THE CACHE VALID BITS 
;* 

; SELECT THE CACHE VALID BITS 

; IF KMCR <15-9> NEQ tBO000000 THEN 

; - ERROR IN THE CACHE 

; ENDIF 

;* 

;* CHECK INITIAL SETTING OF THE CACHE AVAILABILITY BITS 
;* 

; SELECT THE CACHE AVAILABLE SET BITS 

; IF KMCR <14-9> NEQ 8111111 THEN 

; . ERROR IN THE CACHE 

; ENDIF 


;* GO DO TWO CONSECUTIVE READS 
;* THE FIRST WILL ALLOCATE SET A 
;* THE SECOND WILL CAUSE A CACHE HIT IN SET A 


; LET MAP REGISTER 1 POINT TO LOCATION 2000 
LET BEIBA := 20000 ;OCTAL BOUNDARY READ 


LET BEICR2 := 0 ;CLEAR UPPER 2 ADDRESS BITS 


LET BEICC := -2 ;SET FOR TWO TRANSFERS 
SET UBE FOR NPR-DATI-1 XFER 
SET OFF THE TRANSFER 
WAIT FOR THE TRANSFER TO COMPLETE 
MAPPING 


: 

i 

. 

; 

: 

; 

; 

: CACHE 

; SELECT THE CACHE VALID BITS 

;* 

;* CHECK IF THE CACHE OPERATED CORRECTLY 

;* 

; IF KMCR <15-9> NEQ@ 1681001000 THEN 

; Po CACHE DID NOT GET UPDATED CORRECTLY 
‘ 

; SELECT THE CACHE AVAILBILITY BITS 

° 
‘ 
: 
H 
; 
é 


IF KMCR <15-9> NE@ 81000111 THEN 
wa CACHE DID NOT OPERATE CORRECTLY 


£ FF SSSSSSSSSSSES SESS SESS SESS SSS SHES SS SS SSSESSESSSESSSSSESE SS SH SSSSSESSESTESS 


;#TEST 65 UNIBUS DEVICE CYCLE WITH CACHE ENABLED 
f ERRESCSEEESSESSERESSSSESSESESESE ESSER ERESESE SESE RER ESSERE SES EESE SES 


—_—_—_— — 


<< 


SEQ O129 =O! 


rrr 


N10 
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SEQ 0130 


T65 UNIBUS DEVICE CYCLE WITH CACHE ENABLED 
—_ 022520 000004 TST65: SCOPE 
5458 022522 004737 002502 JSR PC ,IUBE ; INITIALIZE THE UBE 
5459 022526 052737 000100 177734 BIS B81IT6,KMCR ; ENABLE THE DMA CACHE 
5460 022534 032737 000100 177734 BIT @BIT6,KMCR ; IS THE CACHE PRESENT ? 
$461 022542 001002 BNE i$ ; IF YES, CONTINUE WITH TEST 
5462 022544 000137 023122 JMP ; OTHERWISE, DO END OF PASS 
5463 022550 012737 160000 170374 i$: MOV #160000,MAPL37 ; INITIALIZE MAP REGISTERS 
5464 022556 012737 000077 170376 MOV 077 ,MAPH37 ; 
5465 005037 170200 CLR 00 ’ 
5466 022570 005037 170202 CLR ; 
5467 022574 052737 000040 172516 BIS BITS ,MMRS ; ENABLE UNIBUS MAPPING 
5468 052737 000400 177730 BIS #681T08 ,OCSR : at DIAGNOSTIC MODE 
5469 022610 042737 000400 177734 BIC #BITO8 ,KMCR F E SURE THAT VALIO BITS SET 
5470 022616 042737 000400 177730 BIC #BIT08 ,DOCSR ; DISABLE DIAGNOSTIC MODE 
fk 022624 S$: 
; 
5473 ; GO DO TWO CONSECUTIVE READS STARTING AT A OCTAL BOUNDARY. 
5474 ; THE FIRST READ WILL ALLOCATE - we SET A. THE SECOND READ 
dk . WILL CAUSE A CACHE HIT IN SET 
5477 022624 012727 000200 170204 108: MOV 0200 ,MAPLO1 ; POINT MAP REGISTER TO LOCATION 200 
5478 022632 37 170206 CLR MAPHO1 
5479 022636 012777 020000 157342 MOV #20000 , 8BE1BA ; SET TRANSFER ADDRESS TO OCTAL BOUNDARY 
5480 012777 000000 157342 MOV #0, @BE1CR2 ; CLEAR UPPER 2 ADDRESS BITS 
$461 022652 012777 177776 157324 MOV @-2,8B8EiCC ; SET UBE FOR TWO TRANSFERS 
ae ; GO DO THE TRANSFER 
; 
$4865 022660 012777 002041 157322 MOV 02041 ,@BE1CR1 ; SET UBE FOR NPR-DATI-1 XFER 
02 032777 000200 157314 15%: BIT @BIT7,@BE1CR1i ; IS THE TRANSFER COMPLETE ? 
5487 022674 001774 BEQ 15$ ; NO, THEN WAIT FOR IT TO BE COMPLETE 
pe 44 ; CHECK THE VALID BITS IN THE KMCR 
90 ; 
$491 022676 013703 177734 MOV KMCR ,R3 ; PUT KMCR INTO R3 FOR MASKING 
5492 022702 042703 000777 BIC 6777 ,R3 ; MASK OUT BITS 0-8 
5493 022706 022703 110000 CMP #110000 ,R3 ; ARE THE BITS SET CORRECTLY ? 
$494 022712 001401 BEQ 20% ; YES, THEN GO CHECK THE AVAILIBILITY BITS 
5495 022714 104033 ERROR +33 ; NO, THEN ERROR IN DMA CACHE 
5496 022716 005037 172516 20%: CLR MMR ; DISABLE MAPPING 
5497 022722 042737 000100 177734 BIC #BITO6 ,.KMCR ; AND CACHE 
$498 022730 023777 000202 157244 CMP 80202 , 8BE 108 ; DATA READ OK? 
$499 022736 001401 BEQ TST66 33IF OK, EXIT TEST 
zeee 022740 104033 ERROR +33 ; OTHERWISE ERROR IN CACHE 


KTJ11-8 DIAGNOSTIC 
TEST - WRONG PARITY AND CACHE 


5503 
5 


5536 
5537 
$538 
5539 
5540 
5541 
5542 


023054 
023062 
023070 
023072 
023100 
023102 


5543 023104 


5544 
5545 
5546 


5547 
5548 


$551 


023110 
023114 


023122 


023132 


5552 023136 


' 
> —_—- -— 


012777 


012777 


000004 
005737 
001015 
005737 
001412 
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177777 


002041 
000200 


177000 


000000 
172516 
000001 


001206 
061720 





157130 


157126 
157120 


177734 


172100 


.SBTTL TEST - WRONG PARITY AND CACHE 


;* THIS TEST VERIFIES THAT IF DATA RECIEVED HAS BAD PARITY IT DOES NOT 
3* GET ALLOCATED IN CACHE. 


BGNTST 
WRITE LOCATION WITH BAD PARITY 





USING UBE DO DATI FROM THAT LOCATION 
IF —* ARE NOT IN RESET CONDITION THEN 


ENDIF 


£ Fs SSSSSSSSSSSSSSSSSSSSSSS SSS SS SESESSSESSESSSSEESESESSEEESSEEESESEESESEEEEEEEE 


;*TEST 66 
2s SSSSSSSSSSSSSSSSSSSSSSSESSESSSSSSESSSSESS SESS SSSESESESESSESESSESESKSESESSESESESE 


TST66: 


; 
; GO DO 
: 


iS5$: 


16$: 


UBEM: 


WRONG PARITY AND CACHE 


SCOPE 

JSR PC, IUBE 

BIS #BITO2!BITOO,8#172100 
BIC #3740 80172100 
CLR a#0 

BIC #BITO2 ,80172100 
BIS @BITOS,MMRS 

BIC @BITO6.KMCR 

BIS #BITO6 ,KMCR 

MOV #0 ,MAPLO1 

CLR MAPHO1 

MOV #20000 , @BE1BA 
MOV #0,3BE1CR2 

THE TRANSFER 

MOV #2041, 9BE1CR1 
BIT #BIT7,@BE1CR1 
BEQ 15$ 

BIT #177000, KMCR 
BEQ 16$ 

ERROR +32 

CLR a0 

CLR MMRS 

BIC #BITOO,8#172100 


CLEAR UBE 

SET WRONG PARITY IN MEMORY CSR 
CLEAR CHECK BITS 

WRITE ve ola on 0 - WRONG PARITY 
CLEAR WRONG PARITY 

ENABLE MEMORY MAPPING 

DISABLE JUST TO MAKE SURE 

ENABLE CACHE 

POINT MAP REGISTER TO LOCATION 200 


SET TRANSFER ADDRESS TO OCTAL BOUNDARY 
CLEAR UPPER 2 ADDRESS BITS 
SET UBE FOR TWO TRANSFERS 


SET UBE FOR NPR-DATI-1 XFER 

IS THE TRANSFER COMPLETE ? 

NO, THEN WAIT FOR IT TO BE COMPLETE 
WAS ALLOCATED? 

IF NOT, BRANCH 

IF WAS, REPORT ERROR 

REWRITE O WITH RIGHT PARITY 

CLEAR MAPPING ENABLED 


FF SSSSSESSSSSSSSSESSSSESSSESSE SSS SSSR SESSSSES SSS SESRSESRESESKESEESESSEKEESESESS 


;#TEST 67 
§ ERRESEEEEEAEAAEEER SEERA ERE RESESSEERESAAESE SSE SEER CREE RE EE EES 


TST67: 


SCOPE 





DUMMY TEST 


$PASS 
$EOP 
PMIS 
$EOP 


; FIRST PASS? 

; IF NOT, GOTO $E0P 

; IF NO PMI MEMORY 

; PRINT MESSAGE EVERY PASS 


~<@ 0131 





' 
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167 


012737 
032737 
001403 
012737 


000024 
000017 


023220 
177734 


000012 023220 


002624 
023240 


001206 


023272 


001112 


001175 
000042 


377 





001206 


MOV 
BIT 
BEQ 
MOV 


Cil 
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#24, $ENDCT 
#17, 3@KMCR 


$EOP 
#12, $ENDCT 


: 
; END OF PASS ROUTINE 


.SBTTL END OF PASS ROUTINE 
{ERR REREESESE TEESE EEESESERESEEESEE REESE ESSERE REESE SEEEEEES 
;*INCREMENT THE PASS NUMBER ($PASS) 

;*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 


;*IF THERES A MONITOR GO TO IT 


SEQ 0132 


; PRINT EVERY 20 PASSES 


; ONLY IF NO UNIBUS MEMORY 
; PRINT EVERY 10TH 


;#IF THERE ISN'T JUMP TO RESTART 
$EOP: 


$EOPCT: 


$ENDCT: 


$DOAGN 
ae 


UQUIET 
1$ 
» 30009$ 


;;ZERO THE TEST NUMBER 

;;ZERO THE NUMBER OF ITERATIONS 
; ; INCREMENT THE PASS NUMBER 
;;DON'T ALLOW A NEG. NUMBER 

; sLOOP? 


3; YES 
; sRESTORE COUNTER 
;NO MESSAGE IF RUNNING UFD QUIET MODE 


3;TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


30008 $ 3 
-ASCIZ <12><15>/END PASS @/ 


, 50011$ 
30010$ 
-ASCIZ / 


SERTTL,-CSP) 


» §CRLF 


9042 ,RO 
$DO0AGN 


PC,CRO) 


ac PC )- 
RESTART 
-1,-1,0 


;:;SAVE $PASS FOR TYPEOUT 
;:TYPE PASS NUMBER 
;:GO TYPE--DECIMAL ASCII WITH SIGN 
;3TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
TOTAL ERRORS:/ 


;:;SAVE SERTTL FOR TYPEOQUT 
;; TOTAL NUMBER OF ERRORS 

:;:GO TYPE--DECIMAL ASCII WITH SIGN 
;:TYPE CARRIAGE RETURN, LINE FEED 


;:;GET MONITOR ADDRESS 
;;BRANCH IF NO MONITOR 
;;CLEAR THE WORLD 

;:GO TO MONITOR 

;;SAVE ROOM 

3;FOR 

;:;ACTil 

; sRETURN 

;;NULL CHARACTER STRING 


re es ee 


KTJ11-B8 DIAGNOSTIC 
END OF PASS ROUTINE 


5565 
5 


023360 
023360 
023362 
023370 
023376 


104407 
052737 
032777 
001117 


000416 


013746 
012737 
005737 
012637 
000466 
022626 


012637 
000426 


032777 


001000 
040000 





177520 
155542 


155474 


001103 
155430 
001106 


155376 
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; SYSMAC ROUTINES 


SEQ 0133 


;SCOPE - ENABLE HALT-ON-BREAK BETWEEN TESTS, SO APT CAN CATCH IT. DISABLE HOB 
;AT END SO TESTS WILL NOT BE INTERRUPTED BY APT BREAKS WHICH CAUSES CERTAIN 
;TESTS TO REPORT ERRORS WHEN THERE ARE REALLY NONE. 


-SBTTL SCOPE HANDLER ROUTINE 
ff ERR EAREEERERER EERE EEERE EERE EEEEEESEEERESEE EEE REESE SESE EES 
;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;#AND LOAD THE TEST NUMBERC$TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

;*THE SWITCH OPTIONS te og BY THIS ROUTINE ARE: 


;*SW14=1 
;*SW11=1 
;*SWO9=1 
; *SWO8=1 
; *CALL 


;* 
$SCOPE : 
1$: 


NE 
7 #eGeeSTART 
$XTSTR: BR 


5$: 


6$:; 


2$: 


7$: 
4$: 


3$: 


LOOP ON T 


T 
INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWR<5:0> 
; ;sSCOPE=IOT 


#BITO9,BCSR 
#BIT14,aSWR 


#5$ , #ERRVEC 


AD 
(SP)+,CSP)+ 
fa » BPERRVEC 


3;TEST FOR CHANGE IN SOFT-SWR 
;ENABLE HOB 

;;LOOP ON PRESENT TEST? 

;3;YES IF SWi4=1 


$OVER 
OF = FOR THE XOR TESTERO0000 


;;IF RUNNING ON THE “XOR” TESTER CHANGE 
;;THIS INSTRUCTION TO A “NOP” (NOP=240) 
;;SAVE THE CONTENTS OF THE ERROR VECTOR 
3;SET FOR TIMEOUT 
:3TIME OUT ON XOR? 
;sRESTORE THE ERROR VECTOR 
:;GO TO THE NEXT TEST 
;;CLEAR THE STACK AFTER A TIME OUT 
sty tty THE ERROR VECTOR 

LOOP ON THE PRESENT TEST 


CODE FOR THE XOR™ TESTERSSOOO 


~ aa » @SWR 


3$ 

(palma masta 
a 
$LPERR, $LPADR 
$OVER 

SERFLG 

$TIMES 

1$ 
roo 


1 
$PASS 
1$ 


;:;LOOP ON SPEC. TEST? 

;;8R IF NO 

;;SET DESIRED TEST NUM. FROM SWR 
:;STRIP AWAY UNDESIRED BITS 

7;0N THE RIGHT TEST? 

;;BR IF YES 

;:HAS AN ERROR OCCURRED? 

;;BR IF NO 

;:;MAX. ERRORS FOR THIS TEST OCCURRED? 


;;BR IF NO 
;;SET LOOP ADDRESS TO LAST SCOPE 


;;ZERO THE ERROR FLAG 

;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
;;ESCAPE TO THE NEXT TEST 

; ; INHIBIT ITERATIONS? 

;;8R IF YES 

;:1F FIRST PASS OF PROGRAM 

33 INHIBIT ITERATIONS 





me 


Eiji 
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SCOPE HANDLER ROUTINE 


023552 005237 001104 INC $ICNT ; ; INCREMENT ITERATION COUNT 
023556 023737 001164 001104 CMP $TIMES, $ICNT ;;CHECK THE NUMBER OF ITERATIONS MADE 
023564 002024 BGE $OVER ;;BR IF MORE ITERATION REQUIRED 
023566 012737 001104 1%: MOV #1,$ICNT ; ;sREINITIALIZE THE ITERATION COUNTER 
023574 013737 023710 001164 MOV $MXCNT, $TIMES ;;SET NUMBER OF ITERATIONS TO DO 
3602 105237 001102 $SVLAD: INCB $TSTNM ;;COUNT TEST NUMBERS 
023606 113737 001102 001204 MOVB $TSTNM, $TESTN ;;SET TEST NUMBER IN APT MAILBOX 
023614 011637 001106 MOV (SP), $LPADR ;;SAVE SCOPE LOOP ADDRESS 
3620 011637 001110 MOV (SP), $LPERR ;;SAVE ERROR LOOP ADDRESS 
023624 5037 001166 CLR $ESCAPE ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
023630 112737 001115 MOVB #1, $ERMAX ;;ONLY ALLOW ONEC1) ERROR ON NEXT TEST 
023636 013777 001102 155276 ‘$OVER: MOV $TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
023644 013716 001106 MOV $LPADR , (CSP) ;;FUDGE RETURN ADDRESS 
023650 123727 001102 000022 CMPB $TSTNM, #18. 
023656 103413 BLO i$ 
023660 123727 001102 000033 CMPB $TSTNM, #27. 
023666 103404 BLO 2$ 
023670 123727 001102 000065 CMPB $TSTNM, #53. 
023676 103403 BLO 1$ 
023700 042737 001000 177520 2$: BIC #1000 , 8@@BCSR ;TESTS 18-26 AND 53-54 REQUIRE HALT-ON BREAK TO 
;BE DISABLED TO PREVENT ERRONEOUS ERROR REPORTS 
023706 000002 1$: RTI 
0237190 000001 $MXCNT: 1 ;;MAX. NUMBER OF ITERATIONS 
5571 -SBTTL TYPE ROUTINE 
SF SESSSSSESSSSESSSSSESSSSSSSESSSSSSSESSESSSESSESESSESSSSSSSSESSSESESESESESESSESSESSSS 
;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE 1” TERMINATE WITH A O BYTE. 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;*NOTE1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
;*NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
;* 
;*CALL: 
3#1) USING A TRAP INSTRUCTION 
am TYPE »MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;* 
;* TYPE 
;* MESADR 
;* 
023712 105737 901157 $TYPE: TSTB $TPFLG :31S THERE A TERMINAL? 
023716 100002 BPL i$ ;:;BR IF YES 
023720 000000 HALT :;HALT HERE IF NO TERMINAL 
023722 000430 BR 3$ ; sLEAVE 
023724 010046 1$: MOV RO, -(SP) ;:;SAVE RO 
023726 017600 000002 MOV @2(SP),RO ;;GET ADDRESS aoe ASCIZ STRING 
023732 122737 000001 001220 CMPB G@APTENV, $ENV ; ;RUNNING IN APT MODE 
023740 001011 BNE 62$ ;:;NO,GO CHECK FOR APT CONSOLE 
023742 132737 000100 001221 BITB #APTSPOOL , $ENVM ; SPOOL MESSAGE TO APT 
023750 001405 BEQ 62$ ;;NO,GO CHECK FOR CONSOLE 
023752 010037 023762 MOV RO,61$ ;:;SETUP MESSAGE ADDRESS FOR APT 
023756 004737 026376 JSR PC, $ATY3 ;;SPOOL MESSAGE TO APT 
023762 61$: -WORD 0 sMESSAGE ADDRESS 
023764 132737 000040 001221 62%: BITB ®APTCSUP,$ENVM ;;APT CONSOLE SUPPRESSED 
023772 001003 BNE 60$ ;;YES,SKIP TYPE OUT 
023774 112046 2$: MOVB CRO)+,-CSP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
023776 001005 BNE 4$ ;;8R IF IT ISN'T THE TERMINATOR 
024000 005726 TST CSP )- ;3;1F TERMINATOR POP IT OFF THE STACK 
024002 012600 60$: MOV (SP )+,RO : ;sRESTORE RO 
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SEQ 0 
TYPE ROUTINE ons 

024004 062716 000002 3$: ADD #2,(SP) ;;ADJUST RETURN PC 
024010 RTI ; ;RETURN 
024012 122716 000011 4$: CMPB OHT , CSP) ; ;BRANCH IF <HT> 
024016 14 BEQ 8$ 

4020 122716 000200 CmMPB @CRLF ,CSP) ; ;BRANCH IF NOT <CRLF> 
024024 001006 BNE S$ 
024026 005726 TST CSP )- ;;POP <CR><LF> EQUIV 
024030 1 1 TYPE ;3;TYPE A CR AND LF 
024032 001175 $CRLF 
024034 105037 024242 CLRB $CHARCNT ;;CLEAR CHARACTER COUNT 
024040 000755 BR 2$ ;;GET NEXT CHARACTER 
024042 004737 024124 S$: JSR PC, $TYPEC ;;GO TYPE THIS CHARACTER 
024046 123726 001156 6$: CMPB $FILLC,CSP)-+ 3;1S IT TIME FOR FILLER CHARS.? 
024052 001350 BNE 2$ ;3IF NO GO GET NEXT CHAR. 
024054 013746 001154 MOV $NULL , -CSP) ;:;GET # OF FILLER CHARS. NEEDED 

;:AND THE NULL CHAR 
024060 105366 000001 7$: DECB 1C SP) ;;D0ES A NULL NEED TO BE TYPED? 
024064 002770 BLT 6$ ;;BR IF NO--GO POP THE NULL OFF OF STACK 
024066 004737 024124 JSR PC, $TYPEC ;;GO TYPE A NULL 
024072 105337 024242 DECB $CHARCNT ;;D0 NOT COUNT AS A COUNT 
024076 000770 BR 7$ ; ;LOOP 
;sHORIZONTAL TAB PROCESSOR 

024100 112716 000040 8$: MOVB #' CSP) ; ;REPLACE TAB WITH SPACE 
024104 004737 024124 9$: JSR PC, $TYPEC ;;TYPE A SPACE 
024110 132737 000007 024242 BITB #7, $CHARCNT ;;BRANCH IF NOT AT 
024116 001372 BNE 9$ ;;TAB STOP 
024120 005726 TST (SP )+ ;;POP SPACE OFF STACK 
024122 000724 BR 2$ ;;GET NEXT CHARACTER 
024124 $TYPEC: 
024124 105777 155014 TSTB asTKS ;;CHAR IN KYBD BUFFER? ;MJDO01 
024130 100022 BPL 10$ ;;B8R IF NOT ;MJDOO1 
024132 017746 155010 MOV a$TKB,-CSP) ;;GET CHAR ;MJD001 

41 042716 177600 BIC #177600, (SP) ; }STRIP EXTRANEOUS BITS ;MUDOO1 
024142 122716 000023 CMPB @$XOFF ,CSP) ;;WAS CHAR XOFF ;MJDOO1 
024146 001012 BNE 102$ ;;8R IF NOT ;MJDOO01 
024150 101$: ;MJD001 
024150 105777 154770 TSTB asTKS ;;WAIT FOR CHAR ;MJDO001 
024154 100375 BPL 101% ;MJDOO1 
024156 117716 154764 MOVB asTKB, (SP) ;;GET CHAR ;MJDOO1 
024162 042716 177600 BIC #177600, (SP) ;;STRIP IT ;MJD001 
024166 122716 000021 CMPB #$XON, (SP) ;;WAS IT XON? ;MUDOO1 
024172 001366 BNE 101$ ;;8R IF NOT ;MJDO01 
024174 102$: ;MUDO0O01 
024174 005726 TST (SP)+ ;3FIX STACK ;MUD001 
024176 10$: ;MUD001 
024176 105777 154746 TSTB asTPS ;;WAIT UNTIL PRINTER IS READY 
024202 100375 BPL 10$ ;MJDO001 
024204 116677 000002 154740 MOVB 2(SP),a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
024212 122766 000015 000002 CMPB + i 2(SP) 331S CHARACTER A CARRIAGE RETURN? 
0242 001003 BNE ; ;BRANCH IF NO 
024222 105037 024242 CLRB TCHARCNT ;;YES--CLEAR CHARACTER COUNT 
024226 000406 BR $TYPEX EXIT 
024230 122766 000012 000002 1%: CMPB #LF ,2(SP) ;3;1S CHARACTER A LINE FEED? 
024236 001402 BEQ $TYPEX ;;BRANCH IF YES 
024240 105227 INCB (PC)-+ ;;COUNT THE CHARACTER 
024242 $CHARCNT:.WORD 0 ;;CHARACTER COUNT STORAGE 
024244 000207 $TYPEX: RTS PC 
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024471 
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024472 
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000040 


024471 


024471 
024473 
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.SBTTL BINARY TO OCTAL CASCII) AND TYPE 
§ PRES EEEEERERE EERE EEE EEREREREEEEEERESEREEEEEEE REESE EEE REE EE RES 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


;#OCTAL (ASCII) NUMBER AND TY 


YPE IT 
s##TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;*CALL: 


NUM, -CSP) 


; ;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;:M=1 OR O 
;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s*$TYPOS OR $TYPOC 


;*CALL: 
;* MOV NUM, - CSP) ; sNUMBER TO BE TYPED 
j* TYPON ;:;CALL FOR TYPEOUT 
;* 
—— HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;* L: 
;* MOV NUM, - CSP) ; ;NUMBER TO BE TYPED 
;* TYPOC ;;CALL FOR TYPEOUT 
$TYPOS: MOV aC SP), -CSP) ;:;PICKUP THE MODE 
MOVB 1CSP), $OF ILL ;;LOAD ZERO FILL SWITCH 
MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) ;;ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #1,$OF ILL ;;SET THE ZERO FILL SWITCH 
MOVB » $OMODE +1 ;;SET FOR SIXC6) DIGITS 
$TYPON: MOVB #5, $O0CNT ::;SET THE ITERATION COUNT 
MOV R3,-CSP) ; ; SAVE 3 
MOV R4,-CSP) ;:SAVE R4 
MOV RS,-(CSP) ;:;SAVE RS 
= — ;:;GET THE NUMBER OF DIGITS TO TYPE 
ADD #6 ,R4 ;:; SUBTRACT IT FOR MAX. ALLOWED 
MOVB R4, $OMODE ;;SAVE IT FOR USE 
MOVB $OFILL, RG ;;GET THE ZERO FILL SWITCH 
MOV 12CSP),R5 ;;PICKUP THE INPUT NUMBER 
CLR R3 ;:;CLEAR THE OUTPUT WORD 
i$: ROL RS ;;ROTATE MSB INTO "C” 
BR 3$ ;;G0 MSB 
2$: ROL R5 ;:FORM THIS DIGIT 
ROL RS 
ROL RS 
MOV R5,R3 
3$: ROL R3 ;;GET LSB OF THIS DIGIT 
DECB $OMODE #7 TYPE THIS DIGIT? 
BPL 7$ ;;B8R IF NO 
BIC #177770,R3 ;;GET RID OF JUNK 
BNE 4$ ;;TEST FOR O 
TST R4 ;;SUPPRESS THIS 0? 
BEQ 5$ ;;B8R IF YES 
4$: INC R4 ;;D0N'T SUPPRESS ANYMORE 0'S 
BIS #'O,R3 ;:;MAKE THIS DIGIT ASCII 
S$: BIS #' RS ;;MAKE ASCII IF NOT ALREADY 


. rrr it*s 
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024422 


024474 


110337 


052702 


ee ll ee 


AND TYPE 


024466 
024466 
024470 


000002 000004 


020200 
000020 
000055 


024710 
000040 


024700 


000001 
000060 





000001 


177777 


ES A CT 


7$: 


6$: 


8$: 


$OCNT: 
ye 


BYTE 
-BYTE 
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(SP)+,CSP) 


0 
0 
0 
: 


SEQ 0137 


;;SAVE FOR TYPING 

;;GO TYPE THIS DIGIT 

; ;COUNT BY 1 

;;BR IF MORE TO DO 

;;BR IF DONE 

;; INSURE LAST DIGIT ISN‘'T A BLANK 
;:;GO DO THE LAST DIGIT 

; sRESTORE RS 

; sRESTORE R4 

; sRESTORE R3 

;;SET THE STACK FOR RETURNING 


; sRETURN 
;: STORAGE FOR ASCII DIGIT 
;; TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 
;;ZERO FILL SWITCH 
; ;NUMBER OF DIGITS TO TYPE 


OMODE: .WORD 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


5 REESE EERE AEEE EERE EERE EEEEEEEEESEESEEEEEEEEEOEE EEE EEEES 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
s*SIGNED DECIMAL CASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF 
;*REPLACED WITH SPACES. 


;*CALL 
;* 


;* 
$TYPDS: 


1$: 


2$: 
3$: 


4$: 


5$: 


MOV 
TYPOS 


NUM, -(SP) 


#20200, -(SP) 
20(SP),R5 
1$ 
5 
#' = »iCSP) 
0 


#$DBLK,RS 
#' ,CR3)+ 


R2 
$DTBLC(RO),R1 
»RS 


6 
1(SP),-1CR3) 
#'O,R2 


THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


;;PUT THE BINARY NUMBER ON THE STACK 
3;GO TO THE ROUTINE 


;:PUSH RO ON STACK 

;:PUSH R1 ON STACK 

;:PUSH R2 ON STACK 

;;PUSH R3 ON STACK 

;;PUSH RS ON STACK 

;:;SET BLANK SWITCH AND SIGN 
;;GET THE INPUT NUMBER 

;;BR IF INPUT IS POS. 

;:;MAKE THE BINARY NUMBER POS. 
;:;MAKE THE ASCII NUMBER NEG. 
;;ZERO THE CONSTANTS INDEX 
;;SETUP THE OUTPUT POINTER 
:;SET THE FIRST CHARACTER TO A BLANK 
;;CLEAR THE BCD NUMBER 

;;GET THE CONSTANT 

;:;FORM THIS BCD DIGIT 

;;8R IF DONE 

; ; INCREASE THE BCD DIGIT BY 1 


;:;ADD BACK THE CONSTANT 

;:; CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF O 
;:;STILL DOING LEADING 0'S? 
;;8R IF YES 

;:MSD? 

;;BR IF NO 

;;YES--SET THE SIGN 

;;MAKE THE BCD DIGIT ASCII 





ere 


—— EE TT 
—_— 
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024720 


022737 


000040 


000010 


177777 


024710 
000002 


000176 
154210 
154204 
177600 
000007 
001134 
025455 
025462 
000176 


025473 


154126 


154122 
177600 
000025 


177776 


000004 


001140 


000001 





7$: 


8$: 


9$: 


$DTBL: 


$DBLK: 


. BLKW 


tii 


MACRO YOS.02 Friday 29-Mar-85 12:53 Page 64-7 
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¢' 

Pe, (RS) 
(RO)+ 
RO, #10 
2$ 

8$ 
RS,R2 


6 

(SP )+ 

9$ 
-1CSP),-2CR3) 
CR3) 
CSP)+,R5 
(SP )+,R3 
C(SP)+,R2 
(SP)+,R1 
(SP )+ ~RO 

. $#0BLK 
2(SP),4(SP) 
(SP )+,CSP) 


4 


-SBTTL TTY INPUT ROUTINE 
5 REESE EEE EEE EEE EEE EEE ESSE OEEEEEEESEEEEEEE EEE EESERESE 
ENABL 


LSB 


;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
;;JUST INCREMENTING 

;;CHECK THE TABLE INDEX 

;;GO0 DO THE NEXT DIGIT 

;;GO TO EXIT 

;;GET THE LSD 

;;GO CHANGE TO ASCII 

;;WAS THE LSD THE FIRST NON-ZERO? 

;;BR IF NO 

;;YES--SET THE SIGN FOR TYPING 

;;SET THE TERMINATOR 

;;POP STACK INTO R5 

;;POP STACK INTO R3 

;;POP STACK INTO R2 

;;POP STACK INTO R1 

;:POP STACK INTO RO 

;:;NOW TYPE THE NUMBER 

;;ADJUST THE STACK 


;;RETURN TO USER 


5 RRR EEE EE EEE REESE EERE ES EEEEEEEEEEEEEEEEEROEEEEEEEEEEEEE REESE 
;*SOFTWARE SWITCH REGISTER CHANGE ROUT 

;#ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*#WHEN OPERATING IN TTY FLAG MODE. 


$CKSUR: 


$GTSWR: 


19$: 
7$: 


9$: 


CMP 
BNE 





@$TKB, -CSP) 
#1C177,(CSP) 
#7,(SP)+ 


7 
a$TKB,-CSP) 
#tC177,CSP) 
(SP),#25 
10$ 


3;IS THE SOFT-SWR SELECTED? 
F NO 


;:;STRIP-OFF THE ASCII 

3:1S IT A CONTROL G? 

;3;NO, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 
;;BRANCH IF YES 

;;ECHO THE CONTROL-G (tG) 

33; TYPE CURRENT CONTENTS 

;;SAVE SWREG FOR TYPEOUT 

;:;GO TYPE--OCTAL ASCIICALL DIGITS) 
;;PROMPT FOR NEW SWR 

;;CLEAR COUNTER 

;;THE NEW SWR 

;;CHAR THERE? 

3;1F NOT TRY AGAIN 

;;PICK UP CHAR 

;:MAKE IT 7-BIT ASCII 

3:1S IT A CONTROL -U? 

;;BRANCH IF NOT 





A 


——- rrr - - 


OO nl 
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SEQ 0139 


025036 104401 025450 TYPE » $CNTLU ;;YES, ECHO CONTROL-U (tU) 
025042 062706 000006 20$: ADD #6 , SP ;;IGNORE PREVIOUS INPUT 
025046 000757 BR 19$ ;;LET'S TRY IT AGAIN 
025050 021627 000015 10$: CMP (SP),#15 3;1S IT A <CR>? 
025054 001022 BNE 16$ ;;BRANCH IF NO 
025056 7 000004 TST 4(SP) ;;YES, IS IT THE FIRST CHAR? 
025062 001403 BEQ 1$ ;;BRANCH IF YES 
02506% 016677 900002 154046 MOV 2CSP),a@SWR ;;SAVE NEW SWR 
025€ 2 062706 000006 11$: ADD #6, SP ;;CLEAR UP STACK 
025: 6 104401 001175 14$: TYPE » $CRLF ;;ECHO <CR> AND <LF> 
025102 123727 001135 000001 CMPB $INTAG, #1 ;;RE-ENABLE TTY KBD INTERRUPTS? 
25110 1 BNE 15$ ;;BRANCH IF NOT 
025112 012777 000100 154024 MOV #100,@$TKS ;;RE-ENABLE TTY KBD INTERRUPTS 
025120 15$: RTI ; sRETURN 
025122 004737 024124 16$: JSR PC, $TYPEC ;;ECHO CHAR 
025126 021627 000060 CMP (SP), #60 ;;CHAR < 0? 
025132 002420 BLT 18$ ;;BRANCH IF YES 
025134 021627 000067 CMP (SP), #67 ;;CHAR > 7? 
025140 301 BGT 8$ ;;BRANCH IF YES 
025142 042726 000060 BIC #60, (CSP )+ ;;STRIP-OFF ASCII 
025146 005766 900002 TST 2(SP) ;;IS THIS THE FIRST CHAR 
025152 001403 BEQ 17$ ;;BRANCH IF YES 
025154 006316 ASL CSP) 3:NO, SHIFT PRESENT 
025156 006316 ASL (SP) 73 CHAR OVER TO MAKE 
025160 006316 ASL (SP) 3; ROOM FOR NEW ONE. 
025162 005266 000002 17$: INC 2C(SP ) ;;KEEP COUNT OF CHAR 
025166 056616 177776 BIS -2(SP), (CSP) ;;SET IN NEW CHAR 
025172 000707 BR 7$ ;;GET THE NEXT ONE 
025174 104401 001174 18$: TYPE . $QUES :3;1TYPE ?<CR><LF> 
025200 000720 BR 20$ ;;SIMULATE CONTROL-U 
.DSABL LSB 
6 FEES SESE EERE EESESEEESEEESSEEEESREEESESEESEEEEEE 
yg ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;* H 
;* ROCHR ;sINPUT A SINGLE CHARACTER FROM THE TTY 
;* RETURN HERE ; ;CHARACTER IS ON THE STACK 
;* ;;WITH PARITY BIT STRIPPED OFF 
025202 011646 $RDCHR: MOV CSP),-CSP) ;;PUSH DOWN THE PC 
025204 01 000004 000002 MOV 4(SP),2CSP) ;;SAVE THE PS 
025212 105777 153726 1$: TSTB asTKS ;;WAIT FOR 
5216 100375 BPL 1$ ;;A CHARACTER 
025220 117766 153722 000004 MOVB as$TKB,4CSP) ;;READ THE TTY 
025226 042766 177600 000004 BIC #tC<177>,4(SP) ;;GET RID OF JUNK IF ANY 
025234 026627 000004 000023 CMP 4(SP),#23 ;3I1S IT A CONTROL-S? 
025242 001013 BNE 3$ ;;BRANCH IF NO 
025244 105777 153674 2$: TSTB as$TKS ;;WAIT FOR A CHARACTER 
025250 100375 BPL 2$ ;;LOOP UNTIL ITS THERE 
O25252 117746 153670 MOVB a$TKB,-CSP) ;;GET CHARACTER 
025256 042716 177600 BIC #tC177,CSP) ;;MAKE IT 7-BIT ASCII 
025262 022627 000021 CMP CSP)+, #21 ;;IS IT A CONTROL-Q? 
025266 001366 BNE 2$ ;;IF NOT DISCARD IT 
025270 000750 BR 1$ ;:YES, RESUME 
025272 026627 000004 000021 3%: CMP 4(SP),#$X0ON ;:I1S IT A RANDOM XON? ;RANOO] 
025300 001744 BEQ 1$ ;;BRANCH IF YES ;RANOO] 
025302 026627 000004 000140 CMP 4(SP), #140 ;;1S IT UPPER CASE? 
025310 002407 BLT 4$ ;;BRANCH IF YES 





ST 
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000004 
000040 


025440 
025450 


000177 
001174 
025436 
025436 
000015 


177777 
001176 


000004 
025440 


000004 





000175 
000004 


000002 


SEQ 0140 
CMP 4(SP),#175 ;:;1S IT A SPECIAL CHAR? 
BGT 4$ ;;BRANCH IF YES 
BIC 940 ,4(SP) ;;MAKE IT UPPER CASE 
4$: RTI ;:;GO BACK TO USER 
Meriiiititititititititititiiiititiiiiiititiiiitiztitiiiiiititiiitt 
oe ROUTINE WILL INPUT A STRING FROM THE TTY 
;* L: 
;* RDLIN ;; INPUT A STRING FROM THE TTY 
;* RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
* ;; TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDOLIN: MOV R3,-CSP) ;;SAVE R3 
i$: MOV @$TTYIN,R3 ;;GET ADDRESS 
2s: CMP O$TTYINeS. ,R3 ; ;BUFFER FULL? 
BLOS 4$ ;;BR IF YES 
RDOCHR ;:;GO READ ONE CHARACTER FROM THE TTY 
MOVB CSP )+,CR3) ;:;GET CHARACTER 
10$: CMPB #177,CR3) 331S IT A RUBOUT 
BNE 3$ ; ;;SKIP IF NOT 
4$: TYPE » $QUES ;;TYPE A '?' 
BR i$ ;;CLEAR THE BUFFER AND LOOP 
3$: ee <r ;;ECHO THE CHARACTER 
CMPB $15,CR3)+ ; ;CHECK FOR RETURN 
BNE 2$ ;;LOOP IF NOT RETURN 
CLRB -1CR3) ;:;CLEAR RETURN (THE 15) 
TYPE , $LF ;;TYPE A LINE FEED 
MOV (SP)+,R3 ; sRESTORE R3 
MOV (SP),-CSP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP),2CSP) $3 FIRST ASCII CHARACTER ON IT 
MOV #$TTYIN,4CSP) 
RTI ; sRETURN 
9$: .BYTE 0O ; ;STORAGE FOR ASCII CHAR. TO TYPE 
BYTE O 33 TERMINATOR 
$TTYIN: .BLKB 8. ; RESERVE 8 BYTES FOR TTY INPUT 
$CNTLU: .ASCIZ /tU/<15><12> ; CONTROL “U" 
$CNTILG: .ASCIZ /tG/<15><12> ;:CONTROL "G” 
$MSWR: .ASCIZ <15><12>/SWR = / 
$MNEW: .ASCIZ / NEW = / 
.-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
5p Ree EEEEEEEREEEESEESEEEEEEESEEEESERESERESERERESEEESS 
;*THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND 
;*#CHANGE IT TO BINARY. 
;*CALL: 
;* RDOCT ;;READ AN OCTAL NUMBER 
;* RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 
;* ;;HIGH ORDER BITS ARE IN $HIOCT 
$RDOCT: MOV (SP),-CSP) ; PROVIDE SPACE FOR THE 
MOV 4(SP),2CSP) ;;1NPUT NUMBER 
MOV RO, -( SP) ;;PUSH RO ON STACK 
MOV R1,-CSP) ;;PUSH RI ON STACK 
MOV R2,-CSP) ;;PUSH R2 ON STACK 





_—— oor i aaaanne:, ene ee oe ewe er ——™ 
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READ AN OCTAL NUMBER FROM THE TTY 


SEQ 0141 


—— ae _ 


025522 104411 1$: ROLIN ;;READ AN ASCIZ LINE 
025524 012600 MOV (SP)+,RO ;;GET ADDRESS OF 1ST CHARACTER 
025526 1 CLR R1 ;;CLEAR DATA WORD 
025530 2 CLR R2 
025532 112046 2$: MOVB CRO)+,-CSP) ;;PICKUP THIS CHARACTER 
025534 001412 BEQ 3$ 331F ZERO GET OUT 
025536 006301 ASL Ri 33*2 
025540 006102 ROL Be 
025542 006301 ASL Ri 33 %4 
025544 006102 ROL R2 
025546 006301 ASL Ri ;3%*8 
025550 00610 ROL R2 
025552 042716 177770 BIC @tC7,CSP) ;;STRIP THE ASCII JUNK 
025556 06 ADD (SP)+,R1 ;;ADD IN THIS DIGIT 
25560 000764 BR 2$ ; sLOOP 
025562 005726 3$: TST (SP)+ ;;CLEAN TERMINATOR FROM STACK 
025564 010166 000012 MOV R1,12CSP) ;;SAVE THE RESULT 
025570 010237 025604 MOV R2, $HIOCT 
025574 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 
025576 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
256 012600 MOV CSP)+,RO ;;POP STACK INTO RO 
025602 9000002 RTI ; sRETURN 
025604 000000 $HIOCT: .WORD 0O ; ;HIGH a BITS GO HERE 
5576 .SBTTL READ A DECIMAL NUMBER FROM THE T 
pt a Fe Bn ee ol SS | 5 
;*THIS ROUTINE WILL READ A DECIMAL CASCII) NUMBER FROM THE TTY AND 
;*#CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
;#ARE READ A “?" FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
;*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
;*#USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
— 32767 TO NEGATIVE 32768. 
;* 
;* RDDEC ;;READ A DECIMAL NUMBER 
;* RETURN HERE ; ;NUMBER IS ON TOP OF THE STACK 
; 
025606 011646 $RDDEC: MOV (SP),-CSP) ;:PROVIDE SPACE FOR 
025610 016666 000004 000002 MOV 4(SP),2¢SP) ;; THE INPUT NUMBER 
025616 010046 MOV RO,-CSP) ;;PUSH RO ON STACK 
025620 010146 MOV R1,-CSP) ;;PUSH Ri ON STACK 
025622 010246 MOV R2,-CSP) ;;PUSH R2 ON STACK 
025624 104411 1$: ROLIN ;;READ AN ASCIZ LINE 
025626 012600 MOV CSP )+,RO ; ;ADDRESS OF 1ST CHAR. 
025630 010037 025754 MOV RO,6$ ;:SAVE INCASE OF BAD INPUT 
5634 5046 CLR -(SP) ;;CLEAR DATA WORD 
025636 2 CLR R2 ;;SIGN SET POSITIVE 
025640 122710 000055 CMPB #'-, CRO) ;;SEE IF A MINUS SIGN WAS TYPED 
025644 001001 BNE $ ;;8R IF NO MINUS SIGN 
025646 112002 MOVB CRO)+,R2 ;;SAVE FOR LATER USE 
025650 112001 2$: MOVB CRO)+,R1 ;;PICKUP THIS CHARACTER 
001424 BEQ 3$ ;;GET OUT IF ZERO 
025654 122701 000060 CMPB #'O,R1 ;:;MAKE SURE THIS CHARACTER 
025660 30 BGT S$ :3;1S A DIGIT BETWEEN 0 € 9 
025662 122701 000071 CMPB #'9,R1 
025666 002427 BLT 5$ 
025670 032716 170000 BIT #1C7777,CSP) ;;D0N‘'T LET NUMBER GET TO BIG 
025674 001024 BNE S$ ;;BR IF NUMBER WOULD OVERFLOW 
025676 006316 ASL (SP) :3%2 








—— 


—_— 


KTJ11-B8 DIAGNOSTIC 
READ A DECIMAL NUMBER FROM THE TTY 


000012 


001174 


002624 
026206 
001000 


001103 


001102 
002000 


001170 
001112 
001116 


000002 
153034 
020000 


177520 


153116 
153106 


001116 
001114 
153046 





3$: TST 


4$: MOV 


S$: TST 


6$: 


sENABLE HOB IN ERROR ROUTINE SINCE MOST LIKELY IT IS CURRENTLY DISABLED. 


Mil 
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-SBTTL ERROR HANDLER ROUTINE 
5p SFOS 84 FSS9SE FSET TEESE TENSES EEEEE EES SESESESESSEEEESEEESEREEEES 


;#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR 
NUMBER AND THE ADDRESS OF THE ERROR CALL 


s#SAVE THE ERROR ITEM 
ERROR 
gid BY THIS ROUTINE ARE: 


;#AND GO TO ERTYPE ON 
;*THE SWITCH OPTIONS 


;*#SW15-1 
3*#SW13-1 
3*#SW10-1 
;*SWO9=1 
;*CALL 
7 ERROR 
$ERROR: 
TST 
BEQ 
CLR 
JSR 
9$: 
CKSWR 
BIS 
7$: INCB 
BEQ 
MOV 
BIT 
BEQ 
TYPE 
i$: INC 
MOV 
SUB 
MOVB 
BIT 





;;SAVE FOR LATER 

33%4 

33%8. 

33#10. 

; ;OVERFLOW ISN’'T ALLOWED 
;;STRIP AWAY THE ASCII JUNK 
;:;ADD IN THIS DIGIT 

; ;sOVERFLOW ISN'T ALLOWED 


; ;LOOP 

;;CHECK IF NUMBER IS NEG 
;;8R IF NO 

;; YES--NEGATE THE NUMBER 
;;SAVE THE RESULT 

;:;POP STACK INTO R2 
;;POP STACK INTO Ri 
;;POP STACK INTO RO 


; sRETURN 
;;CLEAN PARTIAL NUMBER FROM STACK 


;;POINTER GOES HERE 
33"?" “CR” ELF” 
3s TRY AGAIN 


COUNT, 


HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
LOOP ON ERROR 
oN ; sERROR=EMT AND N=ERROR ITEM NUMBER 
UQUIET 7;TEST FOR USER-QUIET MODE 
93 ; ;BRANCH IF FIELD-SERVICE MODE 
RO 3:IN CASE RO HAS A #3 IN IT (tC) 
PC ,ABORT ;:TEST FOR ABORT CONDITION 
3:TEST FOR CHANGE IN SOFT-SWR 
#BITO9,BCSR s ENABLE 
$ERFLG ;;SET THE ERROR FLAG 
7% ;;D0N'T LET THE FLAG GO TO ZERO 
$TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
#BIT10,aSWR ;;BELL ON ERROR? 
i$ 33NO - SKIP 
» $BELL ;;RING BELL 
$ERTTL ;;COUNT THE NUMBER OF ERRORS 
ag ae ;;GET ADDRESS OF ERROR INSTRUCTION 
$2, 
ASERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
#B81T13,@SWR ;;SKIP TYPEOUT IF SET 








SEQ 0142 


KTJ11-8 DIAGNOSTIC 
ERROR HANOLER ROUTINE 





001004 
004737 
104401 


122737 


013716 


022737 
001001 
000000 


002616 
002620 


001220 
026126 


152766 


000030 
000032 


177777 


000030 
000032 


000042 
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SEQ 0143 
BNE 20% ;;SKIP TYPEOUTS 
JSR PC ,ERTYPE ;:;GO TO USER ERROR ROUTINE 
_ TYPE , $CRLF 
CMPB OAPTENV , $ENV ; ;RUNNING IN APT MODE 
BNE re | 3;NO,SKIP APT ERROR REPORT 
MOVB SITEMB,21% ;:;SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, $ATY4 ;;REPORT FATAL ERROR TO APT 
21%: .BYTE O 
BYTE O 
22%: BR 22% ;;APT ERROR LOCP 
2s: TST ASWR ;sHALT ON ERROR 
BPL 3$ 33SKIP IF CONTINUE 
HALT ;sHALT ON ERROR! 
CKSWR 3;TEST FOR CHANGE IN SOFT-SWR 
3%: BIT #BITO9, ASWR ;;LOOP ON ERROR SWITCH SET? 
BEQ 4$ 33;8R IF NO 
MOV $LPERR, (SP) 3;FUDGE RETURN FOR LOOPING 
4$: TST $ESCAPE ; ;CHECK FOR AN ESCAPE ADDRESS 
BEQ 5% ;;BR IF NONE 
- MOV $ESCAPE , (SP) ;;FUDGE RETURN ADDRESS FOR ESCAPE 
CMP @$ENDAD , 8042 33;ACT-11 AUTO-ACCEPT? 
RNE 6$ ; sBRANCH IF NO 
HALT :3;YES 
6$: 
RTI ; sRETURN 
-SBTTL ABORT ROUTINE FOR LCP/ORION UFD MODE 
ABORT: TST UFDOFLG ; TEST FOR USER FRIENDLY MODE 
BEQ ABRT VIF NOT UFD THEN CONTINUE NORMAL OPERATION 
CMP RO, #32 3sIS IT A tZ ? 
BEQ TZ ;JUST GO BACK TO CHAIN IF IT IS (NO ERROR) 
CMP RO, 83 31S IS A tC ? 
BEQ ABORTC ;8R TO LOAD tC ON XXDP+ STACK (NO ERROR) 
TST UQUIET ;TEST FOR USER-QUIET MODE 
BEQ NOABRT ;IF FIELO-SERVICE MODE, CONTINUE NORMAL OPERATION 
+ BECAUSE FIELD- SERVICE MODE DOES NOT QUIT ON ERROR 
BR ABORTE :SET ORSERR THEN LEAVE 
ABORTC: MOV SAV30, 30 sRESTORE EMT LOCATION (30) 
MOV SAV32,32 sRESTORE EMT PRIORITY LOCATION (32) 
EMT 43 ;GET XXDP STACK LOC. INTO RC FROM MONITOR 
1$: i ge sFIND END OF STACK 
MOVB @'/,-1CRO) ;LOAD SLASH OVER ZERO 
MOVB o't, CRO)+ ;LOAD UPARROW 
@'C,CRO)-« sLOAD C 
CLRB CRO) ;sMAKE NEW END TO STACK 
BR ABORTZ s;NOW LEAVE 
ABORTE: MOV SAV30, 30 :RESTORE EMT LOCATION (30) 
MOV SAV32,32 sRESTORE EMT PRIORITY LOCATION (32) 
EMT sae sGET DCA LOCATION INTO RO FROM MONITOR 
MOV #-1,42C(RO) ;SET A -1 INTO LOCATION ORSERR IN MONITOR 
ABORTZ: MOV P ;AND PUT THE MONITOR RETURN ADDRESS IN RO 
CLR ae42 ;CLEAR MONITOR RETURN 
JMP $ENDAD sRETURN TO MONITOR-DO NOT PUSH STACK HERE 
NOABRT: RTS ;IF NOTUFD RETURN TO MAINLI 


PC NE 
;# THIS ROUTINE LOADS TEST NUMBER AND ERROR NUMBER AND THEN CALLS SERRTYP 











KTJ11-8 DIAGNOSTIC 
ABORT ROUTINE FOR LCP/ORION UFD MODE 


’ 
-~—<—- 


113737 
113737 
004737 
000207 


112737 
112737 
000403 


112737 


001102 
001114 
026636 


177776 
023712 


026634 
001220 





001716 
001714 


001200 
026544 
000004 


001202 
009004 


ERTYPE: MOVB 
MOVE 


JSR 
RTS 


$TSTNM, TEST 
sITEMB, 


a » SERRTYP 
.SBTTL APT COMMUNICATIONS ROUTINE 


Bie 
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SEQ 0144 


;;LOAD TEST NUMBER 
;;AND ERROR NUMBER 
33GO REPORT ERRORS 


3 3RET 


£ Fs SSSSSSHSSSSSSSSSSSSSSASSSESSSSESSSSSSSSESSESSSESSESSSSESSSSESSESESESESSESEESESES 


MOVB 
MOVB 


MOVB 


$ATY1: 
$ATY3: 


SATY4: 
$ATYC: 


1$: 


2s: TSTB 


12$: 


$MFLG: 
$LFLG: 
$FFLG: 


E 
APTSIZE=200 





01,$FFLG 


RO, -CSP) 
Ri,-CSP) 
$MFLG 


5$ 
OAPTENV, SENV 


3$ 
a 


#2,4(SP) 


3310 REPORT FATAL ERROR 
3310 TYPE A MESSAGE 


3:10 ONLY REPORT FATAL ERROR 


;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;:SHOULD TYPE A MESSAGE? 
:3I1F NOT: BR 

| OPERATING UNDER APT? 
33IF NOT: BR 

; ySHOULD SPOOL MESSAGES? 
3;3;IF NOT: BR 

S GET MESSAGE ADDR. 


; ;BUMP RE ADOR . 
33SEE IF DONE W/ LAST XMISSION? 


3:IF NOT: WAIT 
;;PUT ADDR IN MAILBOX 
:3FIND END OF MESSAGE 


3;SUB START OF MESSAGE 


3;GET MESSAGE LNGTH IN WORDS 


;s3PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 


3;PUT MSG ADDR IN JSR LINKAGE 
;;BUMP RETURN ADDRESS 


;;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 


+ sSHOULD REPORT FATAL ERROR? 


S }FINISHED LAST MESSAGE? 
33:1F NOT: WAIT 
;;GET ERROR @ 


;;BUMP RETURN ADDR. 


;;TELL APT TO TAKE ERROR 
;;CLEAR FATAL FLAG 
;;CLEAR LOG FLAG 

;;CLEAR MESSAGE FLAG 
;;POP STACK INTO Ri 
;;POP STACK INTO RO 


G 
;;FATAL FLAG 


—_————— em 


KTJ11-8 DIAGNOSTIC 
APT COMMUNICATIONS ROUTINE 


5587 


5588 


026772 
026774 
027000 


900001 
000100 
000040 


104401 
010046 
005000 
153700 
001004 


013746 
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001175 


001114 


001116 


001324 
026710 


001175 
026726 


001175 


001175 


026766 
040 


000002 





a ” = a 


Cie 





SE@ 0145 


APTENV=001 | 
APTSPOOL =100 

APTCSUP=040 

.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

£ FESS SSSSSSSSSSESSESSSSSSSSSSSESSESRSSS SESS SEESESEKEEKESESESEEEEEEEEEES 

;#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 

;#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ($ERRTB), 

:#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


TYPE » $CRLF ;3; "CARRIAGE RETURN” €& “LINE FEED” 
MOV RO, -CSP) ;;SAVE RO 
CLR RO ;:PICKUP THE ITEM INDEX 
BISB aes ITEMB,RO 
BNE i$ 3;1F ITEM NUMBER IS ZERO, JUST 
;;TYPE THE PC OF THE ERROR 
MOV $ERRPC, -C SP) ;;SAVE $ERRPC FOR TYPEOUT 
;;ERROR ADDRESS 
TYPOC 3:;GO TYPE--OCTAL ASCIICALL DIGITS) 
BR 6$ ;;GET OUT 
i$: DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
ASL RO 33 WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #$SERRTB,RO ;;FORM TABLE POINTER 
MOV CRO)+,2$ ;;PICKUP "ERROR MESSAGE” POINTER 
BEQ 3$ ;:;SKIP TYPEOUT IF NO POINTER 
TYPE 3; TYPE THE “ERROR MESSAGE” 
2$: WORD 90 3; "ERROR MESSAGE” POINTER GOES HERE 
TYPE » $CRLF 3; "CARRIAGE RETURN” € “LINE FEED” 
3$: MOV CRO)- ,4$ ;:;PICKUP “DATA HEADER” POINTER 
BEQ 5$ ;:;SKIP TYPEOUT IF O 
TYPE 3:;TYPE THE "DATA HEADER” 
4$: -WORD 0O 3; "DATA HEADER” POINTER GOES HERE 
TYPE » $CRLF 3: "CARRIAGE RETURN” € "LINE FEED” 
5$: MCV CRO),RO ;;PICKUP “DATA TABLE“ POINTER 
BNE 7$ ;;GO TYPE Lng DATA 
6$: MOV (SP)+,RO ; sRESTORE R 
TYPE , §$CRLF | CARRIAGE” RETURN” & "LINE FEED” 
- RTS PC ; sSRETURN 
V @CRO)+,-CSP) ;;SAVE @C(RO)+ FOR TYPEOUT 
TYPOC ;:;GO TYPE--OCTAL ASCIICALL DIGITS) 
TST CRO) :3;1S THERE ANOTHER NUMBER? 
BEQ 6$ ;;8R IF NO 
TYPE ,8$ ;;TYPE TWOC2) SPACES 
BR 7$ g3L 
000 8$: a f- # 3:TWOC2) SPACES 


.EVE 
.SBTTL TRAP “DECODER 
5p ERRREEAEEE EEE EERE REESE EERE SESE EEE EEES ESSERE ESSERE EES EERETES 


;#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;*#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;#OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*#GO TO THAT ROUTINE. 


$TRAP: MOV RO, -CSP) ;;SAVE RO 
MOV 2(SP),RO ;;GET TRAP ADDRESS 
TST ;;BACKUP BY 2 


-CRO) 





eee ee es 





= wee ee ee ee ee 


KTJ11-B DIAGNOSTIC 
TRAP DECODER 


5589 


’ 
—_—> “—* 


111000 
006300 
016000 
000200 


011646 
016666 
000002 


027014 
023712 


012737 


Die 
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027026 


000004 


027216 
000340 


152026 
027222 
027130 


027216 
027222 
027222 
027222 


151760 


027056 
000340 





000002 


000026 


000024 


000024 


000024 
000026 


MOVB 
ASL 
ae 


CRO),RO 


;;GET RIGHT BYTE OF TRAP 
;sPOSITION FOR INDEXING 
ste TO TABLE 


RO 
$TRPADCRO),RO 
RO ;GO TO ROUTINE 


RTS 
;;THIS IS USE TO HANDLE THE "GETPRI” MACRO 


$TRAP2 


: MOV 


4(SP),2CSP) 


;;MOVE THE PC DOWN 
;:;MOVE THE PSW DOWN 
;s;RESTORE THE PSW 


(SP),-CSP) 


.SBTTL TRAP TABLE 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


;*BY THE “TRAP” INSTRUCTION 
ROUTINE 


$TRAP2 

;;CALL=TYPE TRAP+1€104401) TTY TYPEOQUT ROUTINE 

;;CALL=TYPOC TRAP +2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
;;CALL=TYPOS TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
;;CALL=TYPON TRAP +4( 104404) TYPE OCTAL NUMBER CAS PER LAST CALL) 
;;CALL=TYPDS TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 

; ;CALL=GTSWR TRAP +6( 104406) GET SOFT-SWR SETTING 

; ;CALL=CKSWR TRAP+7( 104407) TEST FOR CHANGE IN SOFT-SWR 

; ;CALL=RDCHR TRAP +10( 104410) TTY TYPEIN CHARACTER ROUTINE 
;;CALL=RDLIN TRAP +11(0104411) TTY TYPEIN STRING ROUTINE 

; ;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 

; ;CALL=RDDEC TRAP +13€104413) READ A DECIMAL NUMBER FROM TTY 


-SBTTL POWER DOWN AND UP ROUTINES 

j PERSE RESEEEEESEE SESS: EEEEECEEESER SEES SEER EEEEEEEES EEE SEEES 
sPOWER DOWN ROUTINE 

000024 $PWRDN: MOV 





@$ILLUP,@@PWRVEC ;;SET FOR FAST UP 


#340 ,BOPWRYEC+2 ;;PRIO:7 

RO,-CSP) ;:;PUSH RO ON STACK 
R1,-CSP) ;;PUSH R1 ON STACK 
R2,-CSP) ;;PUSH R2 ON STACK 
R3,-CSP) ;;PUSH R3 ON STACK 
R4,-CSP) ;:;PUSH R4 ON STACK 
RS,-CSP) ;;PUSH RS ON STACK 
@SWR , - CSP) ;;PUSH @SWR ON STACK 
SP, $SAVR6 ;;SAVE SP 

@$PWRUP , @OPWRVEC ;;SET UP VECTOR 
.-2 ; ;HANG UP 


@$ILLUP , 9OPWRVEC ue FAST DOWN 


$SAVR6,SP ;;GET 

$SAVRE6 ;;WAIT LOOP FOR THE TTY 
$SAVR6 ;;WAIT FOR THE INC 

i$ 33 WORD 

(SP)+,@SWR ;;POP STACK INTO &SWR 
(SP)+,R5S ;;POP STACK INTO RS 

(SP )+,R4 3;POP STACK INTO R4 
(SP)+,R3 ;;POP STACK INTO R3 
(SP)+,R2 ;:POP STACK INTO R2 
(SP)+,R1 ;;POP STACK INTO Ri 


(SP )+,RO ;;POP STACK INTO RO 
#$PWRON, QOPWRVEC ;;SET UP THE POWER DOWN VECTOR 
$340, QOPWRVEC +2 ;s;PRIO:7 


ge Se me 





ee 


KTJ11-8 DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 


5596 


5597 


5598 


MACRO YOS.02 Fridey 29-Mar-85 12:53 Page 64-16 





120 
105 


i ae ee 


$P 


$POWER: 


; 
; ERROR MESSAGES 


é 
EM1: 


EM2: 


EM3: 


EM4: 


TYPE 
WRMG: .WORD 

RTI 
$ILLUP: 
$SAVRE: 


HALT 
BR 


$POWER 


--2 


Ele 


‘¢) 
-ASCIZ <15><12>”"POWER” 


. EVEN 


;REPORT THE POWER FAILURE 
;;POWER FAIL MESSAGE POINTER 


;;THE POWER UP SEQUENCE WAS STARTED 
;; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 


-ASCIZ /TIMEOUT ON ACCESSING A MAP REGISTER/ 


-ASCIZ /MAP REGISTER COULD NOT BE CLEARED/ 


-ASCIZ /MAP REGISTER COULD NOT HOLD PATTERN/ 


-ASCIZ /MAP REGISTER HAS NOT BEEN ADDRESSED CORRECTLY/ 


SEQ 0147 


' 
_——- 


KTJ11-8 DIAGNOSTIC 





——— eee 


Fie 
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POWER DOWN AND UP ROUTINES 


5599 027464 





105 EMS: 


123 EM7: 


000 
115 EM10: 





-ASCIZ /THERE WAS NO DIFFERENCE FOUND BETWEEN HI AND LO MAP REGISTERS/ 


-ASCIZ /ERROR IN BITS 3-6,9-14 IN THE DCSR/ 


.ASCIZ /OCSR DID NOT RESPOND PROPORLY ON RESET/ 


-ASCIZ /TIMEOUT HAS OCCURED ON ACCESS TO THE DCSR/ 





SEQ o148—C! 


eee ~s ee Ene 


KTJ11-8 DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 


5603 


ee 


Gle 
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SEQ@ 0149 


EM11: -ASCIZ /KMCR BITS 0-5,8 DID NOT GET SET CORRECTLY/ 


EM1l2: -ASCIZ /TIMEOUT HAS *CCURED ON ACCESS TO THE KMCR/ 


EM15: -ASCIZ /ERROR IN DATA PATH PERFORMING DATA OUT/ 


EM14: -ASCIZ /ERROR IN DATA OUT CYCLE/ 


a — see eS EEE —EEEE—————E—E—E—————————— 


—_—_—_—_ _—— ~ 


LLL ALOK 


——— 


ll LT 


KTJ11-6 DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 


5607 


5609 


5610 


Hie 
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EM15: -ASCIZ /ERROR IN DATA IN CYCLE/ 


EM16: -ASCIZ /DDR IS NOT 0, WHEN DCRS<2-1> SELECTS UNIBUS LINES/ 


EM17: -ASCIZ /DCSR<07> DOES NOT BECOME 1/ 


EM20: -ASCIZ /INDIRECT ADDRESSING OF MAPPING REGISTER PAIRS/ 


EM21: -ASCIZ /REGISTER PAIR 40 PERFORMS RELOCATION/ 


a am ame rr errr ee er rr 
ER SE ee ee ES EEE 


KTJ11-8 DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 


5612 030460 


0 
5613 030534 


0 
5614 030546 


0 
5615 030566 


5616 030636 





EM23: 


EM24: 


EM26: 


veommemm ee ee ee —_ -— 


lie 
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SE@ 0151 


-ASCIZ /NXM CONDITION COULD NOT BE CREATED THRU ALU/ 


-ASCIZ /ALU ERROR/ 


-ASCIZ /CPU CACHE ERROR/ 


-ASCIZ /KMCR<4-0> DON'T DISABLE MEMORY RESPONSE/ 


-ASCIZ /KMCR DOES NOT REFLECT EXPECTED STATUS OF THE CACHE/ 


' 
‘ 
a ee ee 


! 


KTJ11-8 DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 


0 
5619 
0 


5620 
0 


5617 


5618 


5621 031130 





" ee ee 


J1e2 
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EM27: 


EM30: 


EM31: 


EM32: 


EM33: 


-ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 





ERROR IN CACHE TAG REGISTERS/ 


ZERROR IN THE DMA CACHE DATA RAMS/ 


ZERROR IN THE M9312 BOOT ROM SECTION/ 


ZERROR IN ARBITRATION LOGIC USING UBE/ 


ZERROR TRYING TO EXECUTE DMA CYCLES THRU UBE/ 


eee - 





SE@ 0152 


ee 


—d 


—-—— as = ee ee 


| K12 
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POWER DOWN AND UP ROUTINES 
031133 117 122 040 


5622 031204 105 122 +4 EM34: -ASCIZ /ERROR IN THE UNIBUS MEMORY TEST/ 


5623 031244 125 116 = EMSS: -ASCIZ /UNEXPECTED TIMEOUT HAS OCCURED/ 


0 
5624 031303 125 116 et EM36: -ASCIZ /UNIBUS TIMEOUT DID NOT WORK CORRECTLY/ 


0 000 
5625 031351 104 103 at EM37: -ASCIZ /DCSR<3> DID NOT DISABLE UBA ROM RESPONSE/ 


031376 114 105 040 


_——— al 





SEQ 0153 


Lie 
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POWER DOWN AND UP ROUTINES 
031401 125 102 101 


w 
hd] 
© 
© 
~ 
4 


5626 
5627 031422 124 105 123 DH1: -ASCII /TEST ERROR ERROR ADDRESS/<12><15> 


0 
5628 oatan? 040 040 043 -ASCIZ / # PC / 


000 
5629 031471 124 105 123 DH2: -ASCII /TEST ERROR ERROR GOOD BAD/<12><15> 
031477 122 122 117 - 


031521 104 012 015 
5630 031524 040 040 043 -ASCIZ / @ PC t DATA DATA ADDRESS/ 


031562 000 
5631 031563 124 105 123 OH3: -ASCII /TEST ERROR ERROR GOOD BAD/<12><15> 
3 124 011 105 


5632 031616 040 040 043 -ASCIZ / @# PC ADDRESS ADDRESS/ 


A NE . EE ’ 
SS 





P —_ eee oe ee oe oe 


M12 


KTJ11-8 DIAGNOSTIC MACRO YOS.02 Friday 29-Mar-85 12:53 Page 64-24 


POWER DOWN AND UP ROUTINES 


5633 pore a 124 105 123. DH4: .ASCII 


5634 031704 040 040 043 .ASCIZ 


5635 po fy. 124 105 123. DHS: .ASCII 


5636 031764 040 040 043 -ASCIZ 


0 000 
5637 032013 124 105 123. OH13: .ASCII 


0 
5638 canes 040 040 043 .ASCIZ 


5639 032066 124 105 123. ODH16: -ASCIT 





I 
oe — = 


/TEST 


/TEST 


/TEST 


/TEST 


ERROR ERROR HI 


PC % MAP 


ERROR ERROR GOOD 


PC ‘ DATA 


ERROR ERROR ODDR 


PC o/ 


ERROR ERROR/<12><15> 


ee ee Se 


LOW/<12><15> 


MAP/ 


BAD/<12><15> 


DATA/ 


PATTERN/<12><15> 


—_—— -_—_— 


SE@ 0155 


———— 


| N12 
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POWER DOWN AND UP ROUTINES SEQ 0156 
5640 032110 040 040 043 -ASCIZ / @ ec o/ 
032113 011 4040 040 


5641 032125 124 105 123. DH20: -ASCII /TEST ERROR ERROR KMCR PAIR/<12><15> 


4 101 
032155 111 122 012 
032160 015 
5642 032161 040 040 043 .ASCIZ / @ PC % FAILED/ 

032164 O1i 040 040 

032167 120 103 011 

032172 040 

032175 011 101 

0 111 114 


5643 032205 124 105 123. DH23: -ASCII /TEST ERROR ERROR GOOD BAD ADDRESS/<12><15> 


032246 012 015 
5644 032250 040 040 043 -ASCIZ / @ PC 9 DATA DATA <22-16> <13-0>/ 
032253 O11 040 040 
0 120 103 011 
032261 040 040 043 
0 O11 104 101 


32272 104 101 124 
032275 101 011 074 
032300 062 055 
032303 061 076 
032306 011 074 061 
032311 os5 060 
032314 076 000 


5645 por bey 124 105 123. OH27: -ASCII /TEST ERROR ERROR ADDRESS ADDRESS/<12><15> 





KTJ11-8 DIAGNOSTIC 
POWER DOWN AND UP ROUTINES 


5646 0 


032354 
032357 
360 


123 
015 


Bis 
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SE@ 0157 


-ASCIZ / @ PC 0 <22-16> <15-0>/ 

. WORD TEST, SERRPC ,ERRNUM, $BDADR , 0 

. WORD TEST, SERRPC ,ERRNUM, $GDDAT , $BDDAT , $BDADR ,O 
. WORD TEST, $ERRPC ,ERRNUM, $GDADR , $BDADR ,O 

. WORD TEST, $ERRPC,,ERRNUM, $GDDAT , $BDDAT ,O 

. WORD TEST, $ERRPC ,ERRNUM,O 

. WORD TEST, $ERRPC ,ERRNUM,KMCR, $BDADR ,O 

. WORD TEST, $BDADR , ERRNUM,O 

. WORD TEST, $SERRPC ,ERRNUM, $GDDAT , $BDDAT , KIPARG, $BDADR,O 
. WORD TEST, $ERRPC , ERRNUM,MAPHO1 ,MAPLO1,0 

. WORD TEST, SERRPC ,ERRNUM, MAPLOO,0 

. END 


’ 
: inne 
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SEQ 0158 SCS 
Symbol teble 
ABASE = 000000 BE1BA 002206 DH1 031422 ERROR = 104000 MAPH16= 170272 
ABORT 026206 BE1CC 002204 DH13 =—-: 032013 ERRVEC= 000004 MAPH17= 170276 
ABORTC 026240 BEICLR 002212 DH16 ©«-_: 032066 ERTYPE 026346 MAPH2 = 170212 
ABORTE 026304 BE1CRi 002210 DH2 031471 GTSWR = 104406 MAPH20= 170302 
ABORTZ 026330 BEICR2 002214 DH20 032125 T = 000011 MAPH21= 170306 
ACDW1 = 000000 BE108 002202 DH23 032205 IOTVEC= 000020 MAPH22= 170312 
DW2 = 000000 BELINT 001724 DH27 032316 IUBE 002502 MAPH23= 170316 
ACPUOP= 000000 BE1PSW 002220 DH3 031563 KDPARO= 172360 MAPH24= 170322 
ADOWO = 000000 BE1SV 015512 OH4 031653 KDPARI= 172362 MAPH25= 170326 
ADDW1 = 000000 BE1VEC 002216 031731 KDPAR2= 172364 MAPH26= 170332 
ADOW10= 000000 002226 DISPLA 001142 KDPAR3= 172366 MAPH27= 170336 
ADOW11= 000000 BE2CC 002224 DISPRE 000174 KDPAR4= 172370 MAPH3 = 170216 
ADDW12= 000000 BEZCLR 002232 OSWR = 177570 KDPARS= 172372 MAPH30= 170342 
ADDW13= 000000 BE2CRi 002230 OT1 032414 KDPAR6= 172374 MAPH31= 170346 
ADDW14= 000000 BE2ZCR2 002234 O0T16 032474 KDPAR7= 172376 MAPH32= 170352 
ADDW1S= 000000 002222 OT2 032425 KDPDRO= 172320 MAPH33= 170356 
ADDW2 = 000000 BEZINT 001726 D720 032504 KDPDRi= 172322 MAPH34= 170362 
ADDWS = 000000 BE2PSW 002240 DT21 032520 KDPOR2= 172324 MAPH35= 170366 
ADDW4 = 000000 BE2SV 015532 D723 032530 KDPOR3= 172326 MAPH36= 170372 
ADDWS = 000000 BE2VEC 002236 0127 032550 KDPOR4= 172330 MAPH37= 170376 
ADDW6 = 000000 : 1 OT3 032444 KDPDRS= 172332 MAPH4 = 170222 
ADOW7 = 000000 BITOO = 000001 0730 032564 KDPDR6= 172334 MAPHS = 170226 
ADDWS = 000000 BITO1 = 000002 DT4 032460 KDPDR7= 172336 MAPH6 = 170232 
ADDW9 = 000000 BITO2 = EMTSAV 002530 KIPARO= 172340 MAPH7 = 170236 
ADEVCT= 000000 BITO3 = 000010 EMTVEC= 000030 KIPARI= 172342 MAPLO = 170200 
VM = 000000 BIT04 = 000020 EM1 027234 KIPAR2= 172344 MAPLOO= 170200 
AENV = 000000 BITOS = 000040 EM10 027674 KIPAR3= 172346 MAPLO1= 170204 
AENVM = 000000 BITO6 = 000100 EMi1 027746 KIPAR4= 172350 MAPLO2= 170210 
AFATAL= 000000 BITO7 = 000200 EM12 030020 KIPARS= 172352 MAPLO3= 170214 
AMADRi= 000000 BITOB = 000400 EMi3 030072 KIPAR6= 172354 MAPLO4= 170220 
AMADR2= 000000 BITO9 = 001000 EM14 030141 KIPAR7= 172356 MAPLOS= 170224 
AMADR3= 000000 BIT1 = 000002 EMiS 030171 KIPDRO= 172300 MAPLO6= 170230 
AMADR4= 000000 BIT10 = 002000 EM16 030220 KIPDR1= 172302 MAPLO7= 170234 
AMAMS1= 000000 BIT11 = 004000 EMi7 030302 KIPDR2= 172304 MAPL1 = 170204 
= 000000 BIT12 = 010000 027300 KIPDR3= 172306 MAPL10= 170240 
AMAMS3= 000000 BIT13 = 020000 EM20 030335 KIPDR4= 172310 MAPLi1= 170244 
AMAMS4= 000000 BIT14 = 040000 EM2i 030413 KIPDRS= 172312 MAPLi2= 170250 
AMSGAD= 000000 BIT15 = 100000 EM22 030460 KIPDR6= 172314 MAPL13= 170254 
AMSGLG= 000000 BIT2 = 000004 EM23 030534 KIPDR7= 172316 MAPL14= 170260 
AMSGTY= 000000 BIT3 = 000010 EM24 030546 KMCR = 177734 MAPLiS= 170264 
AMTYP1= 000000 BIT4 = 000020 EM25 030566 LF * 12 MAPL16= 170270 
AMTYP2= 000000 BITS = 000040 EM26 030636 MAPHO = 170202 MAPL17= 170274 
AMTYP3= 000000 BIT6é = 000100 EM27 030721 MAPHOO= 170202 MAPL2 = 170210 
AMTYP4= 000000 BIT7 = 000200 EM3 027342 MAPHOL= 170206 MAPL20= 170300 
APASS = 000000 BITS = 000400 EM30 030756 MAPHO2= 170212 MAPL21= 170304 
APRIOR= 000000 BIT9 = 001000 EM31 031017 MAPHO3= 170216 MAPL22= 170310 
APTCSU= 000040 BPTVEC= 14 EM32 031063 MAPHO4= 170222 MAPL23= 170314 
APTENV= 000001 CCR = 177746 EM33. —«-: 031130 MAPHOS= 170226 MAPL24= 170320 
APTSIZ= 000200 CKSWR = 104407 EM34 031204 MAPHO6= 170232 MAPL25= 170324 
APTSPO= 000100 = 000015 EM35 031244 MAPHO7= 170236 MAPL26= 170330 
ASWREG= CRLF = 000200 EM36 =: 031303 MAPHi = 170206 MAPL27= 170334 
ATESTN= 000000 CTBLE 002054 EM37 =: 031351 MAPHi0= 170242 MAPL3 = 170214 
AUNIT = 000000 OCSR = 177730 EM4 027406 MAPH11= 170246 MAPL30= 170340 
AUSWR = 000000 DDIN 002254 EMS 027464 MAPH12= 170252 MAPL31= 170344 
AVECT1= 000000 ODISP = 177570 EM6 027562 MAPH13= 170256 MAPL32= 170350 
AVECT2= 000000 ODO0UT 002242 EM7 027625 MAPH14= 170262 MAPL33= 170354 


j8CSR = 177520 DDR == 177732 ERRNUM 001714 MAPH15= 170266 MAPL34= 170360 














— ae a ne ee Se 


Dis 
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SEQ 0159 
Symbol teble 
MAPL35= 170364 SWREG 000176 TST3O 0 §=—«.: 0012134 $BASE 001254 $GDADR 001120 
MAPL36= 170370 WO = 000001 TST31i 012350 $BDADR 001122 $GDDAT 001124 
MAPL37= 170374 SWOO = 000001 TST32 86012772 $BDDAT 001126 $GET42 023330 
MAPL4 = 170220 SWO1 = 000002 TST33 013224 $BELL 001170 $GTSWR 024770 
MAPLS = 170224 SWO2 = 000004 TST34 013650 $COW1 001260 $ = 
MAPL6 = 170230 SWO3 = 000010 TST35 014050 $CDW2 001262 $HIBTS 000232 
MAPL7 = 170234 SWO4 = 000020 TST36 6014236 $CHARC 024242 $HIOCT 025604 
MAPPR 002276 SWOS = 000040 TST37 014340 $CKSWR 024720 $ICNT 001104 
MCSR 001732 SWO6 = 000100 TST4 $CMTAG 001100 $ILLUP 027216 
MEMSIZ 2 SWO7 = 000200 TST40 014620 $CM3 = 0 $INTAG 001135 
MMRO = 177572 SWO8 = 000400 TST41 015160 $CM4 = 000002 $ITEMB 001114 
MMR1 = 177574 SWO9 = 001000 TST42 015314 $CNTLG 025455 $LF 001176 
MMR2 = 177576 SW1 = 900002 TST43 §©015552 $CNTLU 025450 $LFLG 026633 
MMRS = 172516 SW190 = 002000 TST44 015756 $CPUOP 001226 $LPADR 001106 
MMVEC = 0002 SWil = 004000 TST45 016050 $CRLF 001175 $LPERR 001110 
NOABRT 026344 SWi2 = 010000 TST46 016130 $D0BLK 024710 $MADR1i 001232 
NOCAH 007706 SW13 = 020000 TST47 016230 $00WO 001264 $MADR2 001236 
NROM 013612 SWi4 = 040000 TSTS $D0Wi #001266 $MADR3S 001242 
OBADR 002172 SWi5 = 100000 TSTSO 016444 $DDW10 001310 $MADR4 001246 
PCR =» 177522 SW2 = 000004 TST51 016542 $00W1i1 001312 $MAIL 001200 
PIRQ «= 177772 SW3 = 900010 TSTS2 016710 $DDWi2 001314 $MAMS1 001230 
PIRQVE= 000240 SW4 = 000020 TSTS3 017022 $DDWi3 001316 $MAMS2 001234 
PMIS 001720 SWS = 000040 TSTS4 017452 $00Wi4 001320 $MAMS3 001240 
POLY = 120001 SW6 = 000100 TSTSS 017616 $0DWiS 001322 $MAMS4 001244 
PRO = 900000 SW7 = 000200 TST5S6 017766 $0DW2 001270 $MBADR 000234 
PR1i = 000040 SWB = 000400 TSTS7 020414 $DDW3 001272 $MFLG 026632 
PR2 = 000100 = 001000 TST6 004250 $0DW4 001274 $MNEW 025473 
PRS = 000140 TBITVE= 000014 TST60 020766 $00WS 001276 $MSGAD 001214 
PRG = 000200 TBLMH 012732 TST61 #021050 $0DW6 001300 $MSGLG 001216 
PRS = 000240 TBLML 012672 TST62 021154 $DDW7 001302 $MSGTY 001200 
PR6 = 000300 TEST 001716 TST63 021570 $0DW8 001304 $MSWR 025462 
PR7 = 000340 TIMOUT 002266 TST64 022334 001306 $MTYP1 001231 
PS = 177776 TKVEC = 000060 TST65 022520 $DEVCT 001210 $MTYP2 001235 
PSW = 177776 TOPTBL 010564 TST66 022742 $DEVM O01 $MTYP3 001241 
PTRN1I6 001774 TOUT 001730 TST67 023122 $DOAGN 023350 $MTYP4 001245 
PTRNG 002024 TPVEC = TST7 004426 $DTBL 024700 $MXCNT 023710 
PWRVEC= 000024 TRAPVE= 000034 TYPDS = 104405 $ENDAD 023340 $NULL 001154 
ROCHR = 104410 TRTVEC= 000014 TYPE = 104401 $ENDCT 023220 $NWTST= 000001 
RODEC = 104413 TST1l 003324 TYPOC = 104402 $ENULL 023354 $OCNT 024470 
ROLIN = 104411 TST10 004510 TYPON = 104404 $ENV 001220 $OMODE 024472 
RDOCT = 104412 TST1i1 004642 TYPOS = 104403 $ENVM 001221 $OVER 023636 
RESTAR 003320 TST12 004744 UBECT 001722 $E0P 023164 $PASS 001206 
RESVEC= 000010 TST13 005066 UBEM 023122 $EOPCT 023212 $PASTM 000240 
R6 =#000006 TST14 005472 UBETST 013224 $ERFLG 001103 $POWER 027224 
R7 =#000007 TST15 005670 UFDFLG 002622 $ERMAX 001115 $PWRON 027056 
SAV30 002616 TST16 006074 UFDSET= 000001 $ERROR 025764 $PWRMG 027212 
SAV32 002620 TST17 006264 UMSIZ 002456 $SERRPC 001116 $PWRUP 027130 
SCOPE = TST2 003450 UQUIET 002624 $ERRTB 001324 $QUES 001174 
SIMLGO= 170014 TST20 006536 VALTBL 010550 $ERRTY 026636 $RDCHR 025202 
SRO = 177572 TST21 007136 VMKOR 002626 $ERTTL 001112 $RDDEC 025606 
SRi = 177574 TST22 007616 WRTIBUF 001734 $ESCAP 001166 $RDLIN 025332 
SR2 = 177576 TST23 007726 $APTHD 000232 $ETABL 001220 $RDOCT 025504 
SRS = 172516 TST24 010120 $ATYC 026414 $ETEND 001324 $ROSZ = 000010 
STACK = 001100 TST25 010600 $ATY1 026370 $FATAL 001202 $RTNAD 023352 
START 002530 TST26 011310 $ATY3 026376 $FFLG 026634 $SAVR6 027222 
STKLMT= 177774 TST27 011452 $ATY4 026406 $FILLC 001156 $SCOPE 023360 
| SWR 001140 TST3 003664 $AUTOB 001134 $FILLS 001155 $SETUP= 000137 


a eee rt 





—___—_. i _otiinasintninaiineeneieineneneeeneneeeel 








KTJ11-B8 DIAGNOSTIC 


Symbol teble 
$STUP = 177777 $TKS 001144 
$SVLAD 023602 $TMPO 001160 
$SVPC = 000232 $TMP1 001162 
$SWR = 167400 $™N = 000070 
$SWREG 001222 $TPB 001152 
$SWRMK= 900300 $TPFLG 001157 
$TESTN 001204 $TPS 001150 
$TIMES 001164 $TRAP 026772 
$TKB 001146 
. ABS. 032576 000 = (RW, 1,GBL,ABS,OVR) 
000000 001 (CRW,I,LCL,REL,CON) 


Errors detected: 0 
ese Assembler statistics 


Work file reads: 428 

Work file writes: 330 

Size of work file: 56656 Words ( 222 Pages) 
Size of core pool: 19402 Words ( 74 Pages) 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


d time: 00:05:59.63 
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027014 


024474 
023712 


Elepse 
OKTACO.BIC,COKTACO/CR/-SP/NL : TOC=ORION.MLB/ML , COKTACO/DS : GBL 


$TYPEC 
$TYPEX 


024124 
024244 


001224 


SEQ 0160 


$VECT1 001250 
$VECT2 001252 


COKTACO 


SYMBOL CROSS REFERENCE 


SYMBOL 


sEEE 


sPEEEE 


CREATED BY MACRO ON 29-MAR-85 AT 12:57 


VALUE 


a ee 


REFERENCES 


9-393 
9-393 


9-393 


64-5571 


10-834 
10-831 


64-5571 


9-393 
9-393 


9-393 


#64 -5586 
28-2187 
#64 -5586 
64-5586 


9-393 
9-393 


mn i ee iit -_--—- 


SEQ 0161 


— 


#64 - 5586 


~~ eee eee Be eee 


| Gis 


COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 2 | 
SEQ 0 

SYMBOL CROSS REFERENCE CREF vO02 _ 

SYMBOL VALUE REFERENCES 

AUNIT = 000000 9-393 9-393 

AUSWR = 000000 9-393 9-393 

AVECT1 = 000000 9-393 9-393 

AVECT2 = 000000 9-393 9-393 

BCSR = 177520 08-374 *37-3068 +*45-3860 +*45-3861 +*60-5109 +*64-5570 +*64-5570 +*64-5580 

BE1BA 002206 #10-633 40-3411 46-3919 48-3984 49-4056 50-4146 31-4221 32-4302 53-4426 
53-4459 54-4554 55-4626 56-4709 56-4755 57-4822 58-4898 59-4967 60-5070 
60-5085 60-5085 60-5094 60-5100 60-5116 60-5135 61-5246 61-5283 61-5302 
61-5326 62-5371 62-5382 63-5479 64-5531 

BE1CC 002204 #10-632 40-3410 40-3415 46-3918 48-3983 49-4058 50-4148 51-4224 52-4305 
53-4429 53-4462 54-4557 55-4629 56-4713 57-4823 58-4897 59-4969 60-5072 
60-5087 60-5102 60-5118 60-5137 61-5249 61-5286 61-5303 61-5329 62-5372 
62-5383 62-5390 63-5481 64-5533 

BEICLR 002212 #10-635 

BEICR1i 002210 #10-634 40-3412 40-3413 41-3493 41-3496 41-3504 41-3508 41-3519 41-3523 
41-3534 41-3538 42-3619 42-3622 42-3636 42-3639 42-3653 42-3656 42-3670 
42-3673 43-3711 43-3722 44-3787 44-3790 44-3816 46-3921 47-3955 48-3987 
48-3988 49-4059 49-4065 50-4149 50-4155 51-4233 51-4234 52-4314 32-4315 
53-4438 53-4439 53-4471 53-4472 -4 54-4567 55-4636 55-4637 56-4722 
56-4723 56-4761 56-4762 57-4824 57-4825 58-4902 58-4903 59-4970 59-4971 
60-5073 60-5074 60-5088 60-5089 60-5103 60-5104 60-5119 60-5120 60-5138 
60-5140 61-5250 61-5251 61-5287 61-5288 61-5306 61-5308 61-5331 61-5333 
eB 62-5376 62-5384 62-5385 62-5391 62-5392 63-5485 63-5486 64-5537 

BE1CR2 002214 #10-636 45-3873 45-3878 46-3920 46-3924 47-3953 47-3958 47-3961 49-4057 
50-4147 51-4222 52-4303 33-4427 53-4460 54-4555 35-4627 55-4639 56-4710 
56-4711 56-4725 56-4756 57-4827 59-4968 60-5071 60-5086 60-5101 60-5117 
os .anae 60-5148 61-5247 61-5284 61-5315 61-5327 61-5341 62-5374 63-5480 

BE 108 002202 #10-631 10-818 39-3332 48-3991 49-4055 50-4145 50-4162 51-4223 52-4304 
52-4323 53-4428 53-4450 53-4452 53-4461 53-4483 53-4485 54-4556 54-4575 
54-4577 55-4628 56-4712 56-4769 56-4764 358-4896 60-5079 60-5094 60-5110 
oF eeke 61-5248 61-5265 61-5275 61-5285 61-5528 62-5373 62-5387 62-5394 
63- 

BELINT 001724 #10-599 44-3796 +*44-3803 +#44-3812 +*44-3818 

BE1PSW 002220 #10-638 41-3488 42-3612 43-3712 44-3780 55-4625 56-4717 37-4816 60-5132 
61-5305 61-5325 

BE1SV 015512 44-3779 #44-381 

BE1VEC 002216 #10-637 41-3492 41-3502 41-3517 41-3532 42-3616 42-3633 42-3650 42-3667 
44-3779 48-3985 55-4624 56-4716 57-4815 60-5131 61-5304 61-5324 

BE2BA 002226 #10-646 61-5265 

BE2CC 002224 #10-645 61-5268 

BE2CLR 002232 #10-648 44-380 

BE2CR1 002230 #10-647 44-3789 44-3791 44-3811 61-5269 61-5270 

BE2CR2 002234 #10-649 61-5266 

208 002222 #10-644 61-526 

BE2INT 001726 #10-600 44-3800 +*44-3804 +#44-3813 ¥+*44-3817 

BEQPSW 002240 #10-651 44-378 

BE2SV 015532 44-3781  #44-3816 

BE2VEC 002236 #10-650 44-3781 

BITO = 000001 #8-277 12-989 

BITOO)§ == 000001 #8-277 8-277 10-697 19-1428 44-3790 44-3791 57-4801 57-4804 64-5522 





COKTACO 


SYMBOL CROSS REFERENCE 


el 


’ 
—s 


H13 


CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 3 | 
SEQ 0163 
CREF v02 

REFERENCES 

64-5545 

08-277 8-277 18-1379 19-1425 20-1463 20-1477 21-1551 22-1664 24-1808 
25-1874 26-1959 49-4053 49-4076 49-4079 

98-277 8-277 18-1379 19-1425 21-1551 22-1664 24-1808 25-1874 26-1959 
64-5522 64-5525 

= a 8-277 16-1282 33-2698 33-2711 37-3067 37-3151 37-3158 45-3858 

98-277 8-277 10-842 25-1876 26-1961 27-2119 33-2711 35-2832 38 -3235 
45-3873 45-3878 57-4802 

#8-277 8-277 10-792 10-842 21-1545 21-1547 21-1566 21-1575 21-1612 
21-1616 22-1656 22-1658 22-1667 22-1685 23-1736 23-1738 23-1743 23-1747 
23-1757 23-1758 24-1800 24-1802 24-1811 24-1823 25-1866 25-1868 25-1876 
26-1953 26-1961 27-2074 27-2096 27-2123 27-2152 28-2189 29-2226 29-2230 
29-2247 30-2319 30-2384 31-2487 32-2601 33-2651 33-2715 34-2747 34-2774 
35-2827 35-2852 37-3088 38-3231 39-3324 45-3854 45-3861 53-4411 56-4744 
57-4851 57-4855 64-5526 

08-277 8-277 28-2182 28-2183 29-2231 30-2316 30-2385 31-2488 32-2599 
32-2615 33-2650 33-2679 33-2680 33-2714 34-2748 34-2773 35-2849 35-2850 
45-3860 45-3864 63-5497 64-5527 64-5528 

08-277 8-277 18-1383 27-2104 37-3068 45-3862 60-5109 

08-277 8-277 16-1281 18-1378 19-1424 19-1439 20-1462 21-1550 22-1663 
24-1807 25-1873 26-1958 27-2066 29-22 29-2239 30-2329 30-2336 30-2350 
30-2358 30-2366 30-2374 31-2504 31-2511 31-2521 31-2528 31-2538 31-2545 
31-2555 31-2562 31-2564 32-2600 32-2602 32-2609 32-2616 33-2649 33-2654 
33-2656 33-2664 33-2670 33-2694 33-2716 34-2746 34-2756 34-2758 34-2762 
34-2767 34-2775 35-2829 35-2851 35-2886 36-2964 36-3019 37-3067 37-3143 
37-3149 37-3158 39-3323 55-4639 56-4693 56-4695 56-4725 56-4746 56-4748 
56-4767 56-4769 57-4810 57-4812 57-4827 57-4849 57-4853 57-4856 57-4858 
60-5148 61-5315 61-5341 63-5468 63-5469 63-5470 64-5570 

ed 8-277 64-5570 64-5570 64-5580 64-5580 

#8-2 

$8-277 29-2233 29-2237 32-2605 64-5580 

#8-277 29-2233 29-2237 32-2605 33-2708 64-5570 

#8-277 29-2233 29-2237 32-2605 33-2695 46-3920 

08-277 25-1900 26-1984 26-1993 64-5580 

08-277 25-1900 26-1984 26-1993 61-5248 61-5256 64-5570 

#8-277 23-1753 25-1900 26-1984 26-1993 27-2140 33-2688 33-2704 35-2880 
36-3010 

08-277 

08-277 

08-277 

08-277 10-830 11-892 11-903 11-907 36-2980 49-4045 50-4132 31-4227 
51-4241 52-4308 52-4317 53-4432 53-4441 53-4465 53-4474 54-4560 54-4569 
55-4632 55-4652 56-4699 57-4808 61-5330 63-5467 

08-277 10-830 36-2983 63-5459 63-5460 

08-277 15-1217 15-1225 49-4065 50-4155 51-4234 S2-4315 53-4439 53-4472 
54-4567 55-4637 56-4723 57-4825 58-4903 59-4971 60-5074 60-5089 60-5104 
60-5120 60-5140 61-5251 61-5270 61-5288 61-5333 63-5486 64-5538 

08-277 17-1327 17-1344 18-1398 20-1479 21-1617 22-1687 23-1729 23-1761 
oa 25-1916 26-2017 27-2160 29-2227 29-2249 30-2315 30-2386 31-2486 
6- 

08-277 29-2233 29-2237 32-2605 


SYMBOL VALUE 
BITOL = 000002 
BITO2 = 000004 
BITOS = 000010 
BITO4 = 000020 
BITOS = 000040 
BITO6 = 000100 
BITO7 = 000200 
BITO8 = 000400 
BITO9 = 001000 
BIT1 = 000002 
BIT10 ©= 002000 
BIT1ii1 = 004000 
BITi2 = 010000 
BITi3 = 020000 
BIT14 = 040000 
BITiS = 100000 
BIT2 . 

BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 = 000100 
BIT? = 000200 
BITS = 000400 
BITS = 001000 


—_ 
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COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 4 | 
SE 

SYMBOL CROSS REFERENCE CREF vO02 _—_ 

SYMBOL VALUE REFERENCES 

BPTVEC = 14 08-277 

CCR * 177746 08-378 

CKSWR = 104407 64-5570 64-5580 64-5580 64-5588 

CR * 000015 06-277 64-5571 64-5571 

CRLF = 000200 98-277 10-836 10-836 64-5571 64-5571 

CTBLE #10-618 36-2965 

OCSR * 177730 98-375 *10-697 15-1201 +*15-1206 15-1207 15-1209 15-1218 +15-1223 15-1225 
15-1228 15-1230 15-1235 +*16-1281 +#17-1327 #£+*17-1344 #£#18-1378 +18-1379 18-1383 
*18-1398 +#19-1424 #19-1425 +#19-1428 +19-1439 +#20-1462 +#20-1463 +#20-1477 #20-1479 
#21-1550 21-1551 #*21-1617 ¥*22-1663 *22-1664 +*22-1687 +#23-1729 23-1753 #*23-1761 
*24-1807 #*24-1808 +*24-1824 +#25-1873 *25-1874 +#25-1916 +*26-1958  +*26-1959  +*26-2017 
*27 -2066 27-2140 *27-2160 +*29-2227 *29-2249 +*30-2315 +*30-2386 +*31-2486 +31-2564 
*32-2600 +*32-2616 +*33-2649 33-2716 +*34-2746 34-2775 +*35-2829 +*35-2886  +*36-2964 
*36-2982 +*36-3019 +*37-3067 37-3143 =©*37-3149 8 *37-3151 +*37-3158 +*39-3323 +*49-4053 
*49-4076 49-4077 +*49-4079 +*56-4693 *56-4695 +#*56-4746 +#56-4748 +56-4767 +*56-4769 
*57-4810 +*57-4812 +*57-4849 +*57-4853 +*57-4856 +*57-4858  +63-5468  +*63-5470 

DOIN 002254 #10-697 20-1467 25-1893 26-1978 27-2139 30-2328 30-2351 30-2367 31-2496 
31-2505 31-2522 31-2539 31-2556 33-2682 33-2684 34-2752 34-2761 35-2862 
35-2879 36-2999 36-3009 

ODISP = 177570 08-277 9-393 10-831 

002242 #10-672 18-1387 21-1592 24-1821 26-1988 33-2663 33-2687 

DOR * 177732 08-376 *10-672 18-1388 18-1390 19-1433 19-1435 20-1470 20-1473 20-1475 
ee *23-1751 25-1896 25-1899 26-1980 26-1982 36-3013 49-4067 49-4071 

DH1 031422 10-399 10-447 10-460 10-548 #64 -5627 

OH13 032013 10-466 10-479 #64 -5637 

DH16 032066 10-492 10-504 10-510 10-523 10-529 10-554 10-560 10-566 10-572 
10-578 10-584 10-590 #64 -5639 

DOH2 031471 10-405 10-412 10-453 #64 -5629 

DH20 032125 10-498 #64 -5641 

OHe3 32205 10-516 #64 -5643 

OH27 032316 10-542 964-5645 

DH3 031563 10-419 #64 -5631 

DH4 031653 10-426 064 -5633 

OHS 031731 10-433 10-440 10-472 10-485 10-535 064-5635 

DISPLA 001142 #9-393 *10-831 #10-831 64-5570 64-5580 

DISPRE 000174 08-383 10-831 

OSWR * 177570 08-277 9-393 10-831 

OT1 032414 10-400 10-448 10-461 964 - 5648 

OT16 032474 10-493 10-505 10-511 10-524 10-530 10-555 10-561 10-567 10-573 
10-585 10-591 $64 -56 

OT2 032426 10-407 10-414 10-455 964 - 5649 

0T20 032504 10-499 064-5653 

OT21 032520 10-579 #64 -5654 

OT23 032530 10-518 964-5655 

OT27 032550 10-543 #64 - 5656 

OTS 032444 10-421 964-5650 

OT30 032564 10-549 #64 -5657 

DT4 032460 10-428 10-435 10-442 10-467 10-474 10-480 10-487 10-537 064 -5651 

EMTSAV 002530 #10-830 

EMTVEC = 000030 08-277 #10-831 #10-831 

EM1 027234 10-398 #64-5595 


mm re —— 
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COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 5 | 
SE 

SYMBOL CROSS REFERENCE CREF vO02 7 

SYMBOL VALUE REFERENCES 

EM10 027674 10-446 964 - 5602 

EmM11 027746 10-452 #64 -5603 | 

EM12 030020 10-459 964 - 5604 

EM13 030972 10-465 964-5605 

EmM14 030141 10-471 #64 - 5606 

EM15 030171 10-478 #64 -5607 

EM16 030220 10-484 #64 -5608 

—M17 030302 10-491 #64 -5609 

EM2 027300 10-404 $64 -5596 

EM20 030335 10-497 964-5610 

EM21 030413 10-503 #64-5611 

EM22 030460 10-509 #64 -5612 

EM23 030534 10-515 064-5613 

EM24 030546 10-522 #64 -5614 

EM25 030566 10-528 #64 -5615 

EM26 030636 10-534 964 -5616 

EM27 030721 10-541 64-5617 

EMS 027342 10-411 964-5597 

EM30 030756 10-547 #64 -5618 

EM31 031017 10-553 964-5619 

EM32 031063 10-559 #64 -5620 

EM33 031130 10-565 064-5621 

EM34 031204 10-571 #64 - 5622 

EM35 031244 10-577 #64 -5623 

EM36 031303 10-583 #64 -5624 

EM37 031351 10-589 $64 -5625 

EM4 027406 10-418 964-5598 

EMS 027464 10-425 #64 -5599 

EM6 027562 10-432 #64 -5600 

EM7 027625 10-439 #64 -5601 

ERRNUM 001714 #10-595 *64-5583 64-5648 64-5649 64-5650 64-5651 64-5652 64-5653 64-5654 
64-56 64-5656 64-5657 

ERROR = 104000 #8-277 10-716 11-917 12-985 12-995 12-1008 12-1018 13-1072 13-1083 
14-1138 15-1213 15-1227 15-1231 15-1236 16-1290 16-1296 17-1334 18-1385 
18-1391 18-1395 19-1436 20-1476 21-1599 21-1603 22-1680 23-1755 24-1829 
25-1901 26-1985 26-1994 27-2086 27-2111 27-2132 27-2142 29-2238 29-2246 
30-2335 30-2342 30-2357 30-2364 30-2373 30-2380 31-2510 31-2516 31-2527 
31-2533 31-2544 31-2550 31-2561 31-2568 32-2608 32-2614 33-2669 33-2675 
33-2693 33-2700 33-2707 33-2713 34-2766 34-2772 35-2868 35-2882 36-3012 
36-3015 37-3106 37-3131 37-3139 37-3154 38-3246 38-3250 40-3417 41-3498 
41-3510 41-3525 41-3540 42-3623 42-3640 42-3657 42-3674 43-3727 44-3798 
44-3802 45-3876 45-3883 46-3923 47-3960 48-3993 48-3996 49-4075 49-4092 
50-4164 51-4246 52-4325 53-4455 53-4488 54-4580 55-4641 55-4645 56-4727 
56-4732 56-4766 57-4829 57-4834 58-4910 59-4982 60-5081 60-5096 60-5112 
60-5127 60-5144 60-5150 61-5258 61-5277 61-5295 61-5298 61-5311 61-5317 
61-5337 61-5343 62-5389 62-5396 63-5495 63-5500 64-5542 

ERRVEC = 000004 08-277 10-767 *10-768 *10-769 *10-783 10-831 *10-831 #10-831 37-3136 
*37-3137 #37-3152 +*37-3159 64-5570 +*64-5570 +#64-5570 +*64-5570 

ERTYPE 026346 64-5580 64-558 

GNS = e¢eee¢ 8-383 8-383 10-836 64-5561 64-5561 64-5588 64-5588 64-5588 64-5588 
64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 
64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 
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COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 6 : 
SEQ 0 

SYMBOL CROSS REFERENCE CREF vo2 _ 

SYMBOL VALUE REFERENCES 

GTSWR = 104406 10-836 964-5588 

HT = 000011 08-277 64-5571 64-5571 

IOTVEC = 000020 08-277 #10-831  +10-831 

TUBE 002502 010-817 40-3408 41-3486 42-3611 42-3632 42-3649 42-3666 43-3710 44-3773 
45-3866 46-3914 47-3952 48-3982 49-4040 50-4131 51-4214 52-4295 53-4415 
54-4547 55-4619 56-4703 57-4821 58-4893 59-4952 60-5065 60-5152 61-5241 
61-5321 61-5345 62-5367 63-5458 64-5521 

KDPARO = 172360 08-278 

KOPARL = 172362 08-278 

KOPAR2 = 172364 08-278 

KOPARS = 172366 08-278 

KDPAR4 = 172370 08-278 

KOPARS = 172372 08-278 

KDPAR6 = 172374 08-278 

KOPAR? = 172376 08-278 

KOPORO = 172320 08-278 

KDPORL = 172322 08-278 

KDPOR2 = 172324 08-278 

KOPORS = 172326 08-278 

KOPOR4 = 172330 08-278 

KDPORS = 172332 08-278 

KOPOR6 = 172334 08-278 

KDPOR7 = 172336 08-278 

KIPARO = 172340 08-278 

KIPARL «= 172342 08-278 

KIPAR2 = 172344 08-278 

KIPARS = 172346 08-278 

KIPAR4 = 172350 08-278 

KIPARS = 172352 08-278 

KIPAR6 = 172354 08-278 *10-773 #10-775 10-777 10-847 21-1568 21-1595 21-1608 +#22-1673 
#23-1740 #23-1744 #24-1815 25-1889 25-1905 #25-1910 +#25-1912 25-1913 +#26-1972 
*26-1979  +%26-1989  #26-1998 #27-2076 #27-2078 427-2090 27-2126 27-2146 27-2154 
#38-3241 +*38-3254 38-3255 +53-4414 +#54-4546 57-4817 57-4841 +57-4848 64-5655 

KIPAR7? = 172356 08-278 

KIPDRO = 172300 08-278 

KIPORI = 172302 08-278 

KIPOR2 = 172304 08-278 

KIPOR3 = 172306 08-278 

KIPOR4 = 172310 08-278 

KIPORS = 172312 08-278 

KIPOR6 = 172314 98-278 

KIPOR? = 172316 08-278 

KMCR = 177734 08-377 10-791 16-1268 16-1278 16-1283 16-1284 16-1286 16-1288  +*16-1289 
16-1295 21-1547 21-1577 #21-1578 21-1581 21-1614 22-1658 23-1738 23-1742 
#23-1743 23-1760 24-1802 25-1868 26-1953 27-2069 27-2074 27-2098 27-2100 
27-2101 27-2105 27-2108 27-2109 27-2110 27-2127 *27-2151 27-2152 27-2157 
#28-2182 28-2183 29-2231 +*29-2232 29-2233 29-2235 29-2236 29-2239 29-2240 
29-2243 29-2244 +#30-2316 30-2322 30-2329 30-2330  +30-2336 30-2337 +*30-2350 
30-2352 30-2258 30-2359 +*30-2366 30-2368  +*30-2374 30-2375 30-2385  +*31-2488 
31-2491 #31-2504 31-2506 31-2511 31-2512 31-2521 31-2523 31-2528 31-2529 
#31-2538 31-2540 31-2545 31-2546 +31-2555 31-2557 +#31-2562 31-2563 32-2599 
#32-2602 32-2603 32-2605 32-2607 +#32-2609 32-2610 +*32-2615 33-2650  +33-2654 
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COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 7 | 
S 

SYMBOL CROSS REFERENCE CREF vO2 = 

SYMBOL VALUE REFERENCES 
33-2655 +*33-2656 33-2657 +*33-2664 33-2665 33-2668  +*33-2670 33-2671 33-2674 
*33-2679 +*33-2680 33-2688 33-2690 33-2692 +*33-2694 33-2695 33-2697 33-2699 
33-2701 33-2704 33-2706 33-2708 33-2710 33-2712 33-2714 +£34-2748 +34-2756 
34-2757 +*34-2758 34-2759 +*34-2762 34-2763 34-2765 +*34-2767 34-2768 34-2771 
*34-2773 35-2627 +*35-2849 +*35-2850 +*35-2851 35-2864 35-2880 +#36-2983 36-3010 
37-3145 38-3213 38-3218 38-3231 51-4209 53-4411 56-4685 - #56 -4694 
56-4744 +%56-4747 #+*56-4768 57-4809 +*57-4811 +*57-4850 57-4851 +*57-4857 +#63-5459 
63-5460 +*63-5469 63-5491 +*63-5497 +*64-5527 +*64-5528 64-5 64-5554 64-5653 

LF * 000012 08-277 64-5571 64-5571 

MAPHO = 170202 98-351 

MAPHOO = 170202 #6 -286 8-351 *23-1746 +*24-1818 +*26-1974 +*26-2001 %*26-2002 #27-2122 +#27-2150 
*30-2321 *31-2490 +*33-2653 *34-2750 +*36-2981 +*51-4226 +*52-4307 +*54-4559 +55-4631 
*57-4814 +*57-4845 +*61-5282 61-5296 +*63-5466 

MAPHO1 = 170206 98-288 8-353 *35-2860 +*35-2861 35-2877 +*35-2878  +*63-5478  +64-5530 64-5656 

MAPHO2 = 170212 08-290 8-355 

MAPHOS = 170216 98-292 8-357 

MAPHOS = 170222 98-294 8-359 

MAPHOS = 170226 #8 -296 8-361 

MAPHO6 = 170232 #6-298 8-363 

MAPHO7 = 170236 #8-300 8-365 

MAPHL = 170206 #8-353 

MAPH1O = 170242 #8-302 

MAPHi1 = 170246 $8-304 

MAPH12 = 170252 #8-306 

MAPH13 = 170256 08-308 

MAPH14 = 170262 08-310 

MAPHIS = 170266 #8-312 

MAPH16 = 170272 #8-314 

MAPH17 «= 170276 08-316 

MAPH2 * 170212 08-355 

MAPH20 = 170302 #8-318 

MAPH21 * 170 #8-320 

MAPH22 = 170312 #8-322 

MAPH23 = 170316 08-324 

MAPH24 = 170322 08-326 

MAPH2S = 170326 08-328 

MAPH26 = 170332 #8-330 

MAPH27 = 170336 #8-332 

MAPHS = 170216 08-357 

* 170342 08-334 
MAPHS1 = 170346 08-336 
* 170352 08-338 

MAPHSS = 170356 08-340 

MAPHS4 = 170362 08-342 

MAPHSS = 170366 08-344 

MAPHS6 = 170372 08-346 *56-4758 

MAPHS7 = 170376 08-348 *22-1677 62-5399 +*63-5464 

MAPH4 = 170222 08-359 

MAPHS = 170226 08-361 

MAPHG = 170232 08-363 

MAPH? = 170236 08-365 

MAPLO = 170200 #8-350 
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COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 8 : 
SEQ 0 

SYMBOL CROSS REFERENCE CREF vO02 ates 

SYMBOL VALUE REFERENCES 

MAPLOO = 170200 98-285 8-350 11-897 12-971 12-979 13-1057 13-1056 13-1066 13-1067 
14-1123 14-1130 21-1556 21-156 *#23-1745 +*24-1817 25-1881 +*26-1973 +#*26-2000 
26-2004 #27-2121 #27-2148 +#30-2320 +#31-2489 +*33-2652  +*34-2749 +*36-2998  +36-3008 
#51-4225 +*52-4306 53-4418 +*54-4558 +#55-4630 +#57-4813 +*57-4843 57-4846 61-5281 
61-52 61-5293 62-5371 62-5381  +*63-5465 64-5657 

MAPLOL = 170204 96-287 8-352 *#35-2859 +*35-2876 +*63-5477 +*64-5529 64-5656 

MAPLO2 * 170210 96-289 8-354 

MAPLOS = 170214 96-291 8-356 

MAPLO4 = 170220 98-293 8-358 

MAPLOS = 170224 96-295 8-360 

MAPL * 170230 98-297 8-362 

MAPLO7 »* 170234 98-299 8-364 

MAPLi = 170204 08-352 

MAPL1O = 170240 98-301 56-4700 

MAPL11 = 170244 98-303 

MAPLi2 = 170250 08-305 

MAPL13 = 170254 08-307 

MAPL14 = 170260 98-309 

MAPL1S = 170264 06-311 

MAPL16 = 170270 08-313 

MAPLi7 = 170274 08-315 

MAPL2 *# 170210 08-3 

MAPL20 = 170300 08-317 

MAPL21 = 170504 08-319 

MAPL22 * 170310 #6-321 

MAPL23 = 170314 8-323 

MAPL24 = 170320 #8-325 

MAPL25 * 170324 08-327 

MAPL * 170330 08-329 

MAPL27 = 170334 08-331 

MAPLS = 170214 08-356 

MAPL3O = 170340 08-333 

MAPL31 = 170344 08-335 

MAPL * 170350 06-337 

MAPL33 = 170354 08-339 

MAPL34 = 170360 08-341 

MAPL3S = 170364 08-343 

MAPL * 170370 08-345 *56-4757 

MAPL37 = 170374 08-347 *22-1676 56 - 4688 56-4753 +*63-5463 

MAPL4 = 170220 08-358 

MAPLS = 170224 08-360 

MAPL6 = 170230 #8-362 

MAPL7? = 170234 - 364 

MAPPR 002276 010-734 10-841 21-1564 22-1665 23-1730 24-1809 25-1875 26-1960 27-2067 
35-2830 38-3239 57-4800 

MCSR 001732 010-602 60-5070 60-5079 61-5245 61-5246 61-5256 61-5262 

MEMSIZ 002364 010-767 10-844 

MMRO * 177572 08-369 #10-843 *10-845 *#21-1565 #21-1615 +#22-1666 +#22-1684 +#23-1731 23-1756 
24-1810 24-1822 #25-1877 #25-1915 +#*26-1962 +*26-2016 +*27-2068 +*27-2159 *35-2831 
*35-2885 +*38-3240 +#38-3257 +*57-4801 +*57-4804 

MMR 1 * 177574 08-370 

MMR * 177576 08-371 
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COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 9 
E 
SYMBOL CROSS REFERENCE CREF vO02 =e Sees 
SYMBOL VALUE REFERENCES 
MMR * 172516 96-372 #10-842 *10-846 #21-1566 421-1616 +*22-1667 *22-1685 23-1747 +#23-1757 
#24-1611 24-1823 +*25-1876 +#26-1961 %#27-2119 27-2123 27-2158 29-2228  +#29-2230 
29-2247 #30-2319 30-2384 31-2487 32-2601 33-2651 33-2715 34-2747 34-2774 
*35-2832 35-2852 +*36-2980 +*#38-3235 +39-3324 +49-4045 50-4132 51-4227 +#51-4241 
*52-43068 52-4317 +#53-4432 +#53-4441 +#53-4465 +#53-4474 *54-4560 +54-4569 +#55-4632 
pr #56-4699 57-4802 +*57-4808 +57-4855 +#61-5330 +63-5467  +#63-5496 +#64-5526 
Pa - 
MMVEC = 000250 08-278 
NOABRT 026344 64-5 64-5580 64-5580 
AH 007706 28-2191 28-2195 
NROM 013612 37-3091 37-3162 
OBADR 002172 #10-620 36-2972 36-2985 36-2995 36-3005 
PCR * 177522 06-379 *37-3069 
PIRQ * 177772 08-277 #43-3723 +*43-3735 
PIRQVE = 000240 08-277 *43-3713 , 
PMIS 001720 010-597 #10-847 #16-1273 17-1323 18-1376 19-1422 20-1460 21-1543 22-1654 
23-1727 24-1798 25-1864 26-1951 26-1963 27-2063 27-2120 28-2180 29-22 
30-2312 31-2483 32-2597 33-2646 34-2740 35-2624 35-2833 35-2839 35-2841 
36-2959 53-4492 57-4795 57-4803 64-5551 
POLY * 120001 08-380 37-3118 37-3120 
PRO # 000000 08-277 
PR1 * 000040 08-277 
PR2 * 000100 08-277 
PRS # 000140 06-277 
PP4 * 0002 08-277 
PR3 » 000240 08-277 
PR6 * 000 08-277 
PR7 =» 000340 08-277 
PS * 177776 08-277 8-277 
PSW * 177776 08-277 #40-3409 +40-3418 40-3419 240-3421 +#41-3487 241-3505 +#41-3520  +41-3535 
#42-3618  +#42-3620 +*42-3635 +*42-3637 42-3652 42-3654 42-3669 +*42-3671 +*43-3721 
#43-3724 44-3786  +*44-3792 +#47-3954 #47-3962 +#48-3986  +#48-3990 +#61-5332 
PTRN1I6 001774 ae A 12-986 18-1380 19-1426 36-29 49-4047 49-4088 50-4138 51-4215 
PTRNG 002024 010-607 12-1009 
PWRVEC = 000024 08-277 #10-831 *10-831 45-3870 +#45-3871 45-3872  +#45-3880 45-3886 +*64-5589 
*64-5589 +*64-5589 +#64-5589 +64-5589 +64-5589 
ROCHR = 104410 64-5574 64-5 
RDDEC = 104415 064-5588 
ROLIN = 104411 64-5575 64-5576 64-5588 
RDOCT = 104412 064-5588 
RESTAR 003 010-848 64-5561 
RESVEC = 000010 08-277 
R6 ” 08-277 #10-831 #10-831 10-831 
R? * 08-277 
SAV3O0 002616 10-830 #10-830 #10-830 64-5580 64-5580 
SAV32 002620 #10-830 #10-830 64-5580 64-5 
* 000004 08-277 11-881 12-966 13-1052 14-1118 15-1191 16-1260 17-1318 18-1374 
19-1420 20-1459 21-1541 22-1652 23-1725 24-1796 25-1862 26-1949 27-2062 
28-2178 29-2223 30-2310 31-2481 32-2595 33-2644 34-2738 35-2822 36-2958 
37-3062 38-3208 39-3321 40-3406 41-3484 42-3609 43-3709 44-3769 45-3848 
46-3912 47-3950 48-3980 49-4037 $0-4129 51-4207 52-4293 53-4409 54-4544 
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COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 10 

SYMBOL CROSS REFERENCE CREF v02 = vo 

SYMBOL VALUE REFERENCES 
55-4618 56-4683 57-4793 58-4891 59-4950 60-5063 61-5239 62-5366 63-5456 
64-5519 64-5548 64-5561 

SIMGO «= 170014 68-381 

SRO * 177572 06-278 

SR1 = 177574 98-278 

SR2 = 177576 #8-278 

SR3 = 172516 96-278 *11-892 #11-903 *11-907 

STACK # 001100 08-277 10-831 

START 8-386 8-389 #10-830 

STKLMT = 177774 08-277 

001140 09-393 0-831 *10-831 10-831 *10-831 *10-831 10-836 64-5570 64-5570 

64-5570 64-5570 64-5570 64-5574 64-5574 64-5580 64-5580 64-5580 64-5580 
64-5589 64-5589 

SWREG 000176 68-383 10-831 10-836 64-5574 64-5574 

SwWO = 000001 08-277 

SWOO = 000001 08-277 8-277 

SWO1 = 000002 08-277 8-277 

SWO02 ° 08-277 8-277 

SWO3 = 000010 98-277 8-277 

SWO4 = 900020 08-277 8-277 

SWOS = 000040 08-277 8-277 

SWO6 = 000100 08-277 8-277 

SWO7 = 000200 08-277 8-277 

SWO8 = 000400 08-277 8-277 

SWO9 = 001000 08-277 8-277 

SW1 = 9000002 08-277 

SW10 = 002000 08-277 

SW11 = 004000 08-277 

SW1i2 = 010000 #8-277 

SwW13 = 020000 08-277 

SwW14 = 040000 08-277 

SW1i5 = 100000 @8-277 

SwW2 = 000004 $8-277 

SW3 = 000010 08-277 

SW4 = 9000020 08-277 

SWS = 000040 #8-277 

SW6 = 000100 #8-277 

SW7 . 08-277 

SW8 * 08-277 

SWS = 001000 98-277 

TBITVE = 000014 #8-277 

TBLMH 012732 35-2854 #35-2899 

TBLML 012672 35-2853 #35-2892 

TEST 001716 #10-596 *10-839 *64-5582 64-5648 64-5649 64-5650 64-5651 64-5652 64-5653 
64-5654 64-565 64-5656 64-5657 

TIMOUT 002266 SS chke 10-837 15-1202 16-1269 17-1343 21-1565 22-1686 27-2092 27-2156 

TKVEC = 000060 08-277 

TOPTBL 010564 30-2318 30-2403 

TOUT 001730 #10-601 #21-1590 21-1593 

TPVEC = 08-277 

TRAPVE = 000034 08-277 #10-831 *10-831 


COKTACO 


SYMBOL CROSS REFERENCE 


CREATED BY 


SYMBOL VALUE 
TRTIVEC 000014 
TST1 003324 
TST10 004510 
TSTil 

TST1i2 004744 
TST1i3 005066 
TST14 005472 
TST15 005670 
TST16 006074 
TST17 

TST2 003450 
TST20 006536 
TST21 007136 
TST22 007616 
TST23 007726 
TST24 010120 
TST25 01 
TST26 011310 
TST27 011452 
TST3 

TST3O 012134 
TST31 012350 
TST32 012772 
TST33 013224 
TST34 013650 
TST35 014050 
TST36 014236 
TST37 014340 
TST4 

TST40 014620 
TST41 015160 
TST42 015314 
TST43 015552 
TST44 015756 
TST45 016050 
TST46 016130 
TST47 016230 
TSTS 

TSTSO 016444 
TSTS1 016542 
TSTS2 016710 
TSTS3 017022 
STS4 017452 
TSTSS 017616 
TSTS6 017766 
TSTS7 020414 
TST6 

TST60 020766 
TST61 021050 
TST62 021154 
TST63 021570 
TST64 022334 


ee ee) 


018-1374 


#33-2644 


#35-2822 

35-2887 
#37-3062 
#38-3208 
#39-3321 
040-3406 


44-3809 
45-3855 


48-3994 


#54 -4544 
#55-4618 


#16-1260 
#58-4891 
#59-4950 


MACRO ON 29-MAR-85 AT 12:57 


#23-1725 
624-1796 
24-1826 


#26-1949 
#27 -2062 


#29-2223 


#36-2958 


#45-3848 
45-3857 


049-4037 


CREF 


PAGE 11 


#25-1862 


45-3859 


v0e 


Ci4 


45-3863 


45-3865 


#46-3912 


mm mee —~ — 


SEQ 0171 


—— 


eel 


-  etinenssntinel 


_—-4 


D1i4 


COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE i2 | 
7 
SYMBOL CROSS REFERENCE CREF vo2 aos C878 
SYMBOL VALUE REFERENCES 
TST65 022520 063-5455 
TST66 022742 63-5499 64-5519 
TST67 023122 064-5548 
TST7 004426 16-1274 16-1291 #17-1318 
TYPOS = 104405 64-5561 64-5561 #64-5588 
TYPE * 104401 10-836 28-2191 28-2192 37-3091 37-3095 64-5561 64-5561 64-5561 64-5571 
64-5572 64-5573 64-5574 64-5574 64-5574 64-5574 64-5574 64-5574 64-5574 
64-5574 64-5574 64-5576 64-5576 64-5580 64-5580 64-5587 64-5587 64-5587 
64-5587 64-5587 64-5587 64-5587 #64 -5588 64-5589 
TYPOC = 104402 64-5574 64-5587 64-5587 964-5588 
TYPON = 104404 964-5588 
TYPOS = 104403 37-3092 #64-5588 
UBECT 001722 #10-598 *39-3366 39-3372 39-3381 44-3771 61-5263 
UBEM 023122 39-3383 51-4213 63-5462 #64 -5548 
UBETST 013224 28-2193 #37-3062 
UFDFLG 002622 *#10-850 #10-830 64-5580 
UFDSET = #8-373 10-830 64-5580 64-5580 
UMSIZ 002456 10-791 38-3225 
UVQUIET 002624 *10-830 #10-830 10-832 64-5561 64-5580 64-5580 
VAL TBL 010550 30-2317 #30-2392 
VMKOR 002626 10-830 10-830 10-830 #10-830 
WRTBUF 001734 #10-603 49-4046 49-4087 51-4225 51-4242 58-4894 59-4958 59-4967 59-4978 
$APTHD 000232 8-392 #8-392 
$ASTAT = #ee608 64-5586 64-5 
$ATYC 026414 64-5586 #64-5586 
$ATY1 026370 #64 -5586 
s$ATY3 026376 64-5571 964-5586 
S$ATY4 026406 -5 $64 -5586 
$AUTOB 001134 49-393 *10-836 64-5574 64-5574 64-5574 
$BASE 001254 #9-393 
$BDADR 001122 $9-393 *#10-715 *#11-915 #12-984 *12-994 *#12-1007 #=+#*12-1017 #13-1071 #13-1082 
*#15-1235 *16-1288 #16-12°5 #21-1595 +*21-1597 *24-1828 *25-1894 *#25-1895 25-1896 
25-1898 *25-1900 *26-1976 26-1980 26-1983 *26-1984 26-1990 26-1992 #26-1993 
*26-2003 *26-2004 *26- *26-2006 #27-2109 +*53-4454 #53-4487 #54-4579 64 - 5648 
64-5649 64-5650 64-5653 64-5654 64-5655 
$BODAT 001126 #9-393 *12-982 *#12-992 #12-1005 ¥+*12-1015 *#14-1137 }##*15-1211 #15-1230 +#16-1287 
*18-1390 *18-1394 *#19-1435 +#20-1475 }#*21-1602 *24-1827 *#25-1899 +#26-1982 +#*26-1992 
*27-2108 *29-2235 #29-2243 *30-2330 30-2331 *30-2337 30-2338 #30-2352 30-2353 
#30-2359 30-2 *30-2368 30-2369 +*30-2375 30-2376 *31-2506 31-2507 #31-2512 
31-2513 *#31-2523 31-2524 *#31-2529 31-2530 +*31-2540 31-2541 *31-2546 31-2547 
*31-2557 31-2558 *31-2563 31-2565 *#32-2607 #32-2610 32-2611 *33-2668 j+#33-2674 
*33-2692 *33-2699 *33-2706 *33-2712 *34-2765 #34-2771 #49-4073 #53-4452 #53-4485 
#54-4577 64-5649 64-5651 64-5655 
$BELL 001170 #9-393 64-5580 64-5580 64-5580 
$COWl 001260 #9-393 
$COW2 001262 $9-393 
$CHARC 024242 *64-5571 #64-5571 64-5571 *64-5571 #64-5571 
$CKSWR 024720 064-5574 64-5588 64-5588 
$CMTAG 001100 69-393 10-831 10-831 10-831 10-831 10-831 10-831 10-831 
$Cm3 = #9-393 9-393 
$CM4 2 89-393 3-393 9-393 #9-393 9-393 9-393 #9-393 
$CNTLG 025455 64-5574 #64-5574 


i —- ee ee — 


E14 


COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 13 

SYMBOL CROSS REFERENCE CREF vO02 — Sere 

SYMBOL VALUE REFERENCES 

$CNTLU 025450 64-5574 64-5574 

$CPUOP 001226 09-393 

sCRLF 001175 69-393 28-2192 37-3095 64-5561 64-5571 64-5571 64-5571 64-5574 64-5574 
oo ae 64-5576 64-5576 64-5580 64-5580 64-5580 64-5587 64-5587 64-5587 

$08LK 024710 64-5573 64-5573 #64-5573 

$D0WO 001264 99-393 

$00W1 001266 69-393 

$D0W10 001310 09-393 

$00W11 001312 09-393 

s00W12 001314 09-393 

$00W13 001316 #9-393 

$00W14 001320 69-393 

$00W15 001322 69-393 

$00W2 001270 $9-393 

$D0W3 001272 09-393 

$D0W4 001274 #9-393 

$00W5 001276 #9-393 

$D0W6 1300 #9-393 

$00W7 001302 09-393 

$00W8 001304 09-393 

$00W9 001306 09-393 

$DEVCT 001210 09-393 

$DEVM 001256 #9-393 

$D0AGN 023350 64-5561 64-5561 64-5561 

sOTBL 024700 64-5573 64-5573 

$ENDAD 023340 8-391 10-836 964-5561 64-5580 64-5580 

$ENDCT 023220 10-831 #64-5553 +*64-5556 64-5561 

$ENULL 023354 #64 -5561 

sENV 001220 yo & 10-834 10-836 28-2187 37-3086 45-3856 64-5571 64-5580 64-5586 

sENVM 001221 #9-393 10-831 64-5571 64-5571 64-5586 

sEOP 023164 64-5550 64-5552 64-5555 64-5561 

sEOPCT 023212 *10-831 #64 -5561 64-5561 

sERFLG 001103 a 64-5570 64-5570 64-5570  +*64-5570 64-5570 64-5570 +*64-5580 64-5580 

SERMAX 001115 #9-393 *10-231 64-5570 +*64-5570 64-5570 64-5570 

$ERROR 764 10-831 #64 -5580 

SERRPC 001116 #9-393 *64-5580 +*64-5580 64-5580 64-5580 64-5580 64-5587 64-5648 64-5649 
64-56 64-5651 64-5652 64-5653 64-5655 64-5656 64-5657 

sERRTB 001324 #10-393 64-5587 

SERRTY 36 64-5584 64-5587 

SERTTL 001112 #9-393 64-5561 +*64-5580 64-5580 64-5580 

sESCAP 001166 09-393 *10-831 *64-5570 64-5580 64-5580 64-5580 64-5580 

sETABL 001220 $9-393 

$E TEND 091324 8-392 #9-393 

$FATAL 001202 09-393 *64-5586 

$FFLG 34 *64-5586 +*64-5586 64-5586 +*64-5586 64-5586 

sFILLC 001156 #9-393 64-5571 64-5571 64-5571 

$sFILLS 001155 69-393 64-5571 64-5571 

4 001120 69-393 *#13-1070 +#13-1081 64-5650 

$GDDAT 001124 #9-393 10-672 *#12-983 *12-993 #12-1006 #*12-1016 #14-1136 15-1212 15-1217 


ee 


F14 


COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 14 | 

SYMBOL CROSS REFERENCE CREF vO02 = 

SYMBOL VALUE REFERENCES 
*#15-1218 +16-1286 +*18-1386 18-1388 18-1392 +*19-1427 19-1429 19-1433 #20-1465 
*#20-1472 #*21-1591 21-1600 *22-1674 22-1678 +*24-1819 +#*25-1898  +%26-1977 +#26-1983 
*26-1986 26-1990 *26-2013 +*27-2103 *27-2104 27-2105 27-2107 +#29-2236 +%29-2237 
*29-2244 +*29-2245 *30-2322 *30-2323 +*30-2334 +*30-2341 30-2356 +*30-2363 +#30-2372 
*30-2379 #31-2491 31-2509 +*31-2515 31-2526 +*31-2532 +*31-2543 +*31-2549 +#31-2560 
#31-2567 +#32-2603 *32-2604 +*32-2613 +*33-2662 33-2667 #=+*33-2673 +*33-2686 j#+33-2690 
*33-2691 +*33-2697 +*33-2698  +*33-2701 +*33-2702 33-2710 +*33-2711 #$+%+#34-2757 34-2763 
#34-2770 #49-4074 #*53-4453 +*53-4486 +*54-4578 64-5649 64-5651 64-5655 

$GET42 023330 964 -5561 

$GTSWR 024770 064-5574 64-5588 64-5588 

° = 000001 8-274 8-274 8-274 

$HIBTS 000232 #8-392 

$HIOCT 025604 *64-5575 64-5575 

$ICNT 001104 #9-393 *64-5570 64-5570 +*64-5570 64-5570 64-5570 

$ILLUP 027216 64-5589 64-5589  #64-5589 

sINTAG 001135 #9-393 64-5574 64-5574 64-5574 

sITEMB 001114 #9-393 *64-5580 64-5580 64-5580 64-5580 64-5583 64-5587 

sLF 001176 on 64-5571 64-5571 64-5574 64-5574 64-5574 64-5576 64-5576 64-5580 

$LFLG 026633 *64-5586 #64-5586 

$LPADR 001106 09-393 *10-831 *64-5570 +*64-5570 64-5570 64-5570 64-5570 

$LPERR 001110 #9-393 *10-831 64-5570 +*64-5570 64-5570 64-5570 64-5580 

$MADR1 001232 #9-393 

$MADR2 001236 #9-393 

$MADRS 001242 #9-393 

$MADR4 001246 #9-393 

$MAIL 1 8-392 8-392 #9-393 10-831 10-836 64-5570 64-5571 64-5580 

$MAMS1 001230 #9-393 

$MAMS2 001234 #9-393 

$MAMS3 001240 #9-393 

$MAMS4 001244 09-393 

$MBADR 000234 #8-392 

$MFLG 026632 *64-5586 64-5586 +*64-5586 64-5586 

$ 025473 64-5574 64-5574 

$MSGAD 001214 #9-393 *64-5586 64-5586 

$MSGLG 001216 #9-393 #64 -5586 

$MSGTY 001 #9-393 64-5586 +*64-5586 64-5586 +*64-5586 

$MSWR 64-5574  #64-5574 

$MTYP1 001231 #9-393 

sMTYP2 001235 09-393 

sMTYPS 001241 #9-393 

$MTYP4 001245 $9-393 

$MXCNT 023710 64-5570 64-5570 64-5570 #64-5570 

$NULL 001154 09-393 64-5571 64-5571 64-5571 

$NWTST = 000001 #11-881 11-881 #11-881 #12-966 12-966 #12-966 #13-1052 13-1052 #13-1052 
#14-1118 14-1118 414-1118 #15-1191 15-1191 15-1191 #16-1260 16-1260 16-1260 
#17-1318 17-1318 #17-1318 #18-1374 18-1374 18-1374 #19-1420 19-1420 19-1420 
#20-1459 20-1459 #20-1459 #21-1541 21-1541 #21-1541 #22-1652 22-1652 22-1652 
#23-1725 23-1725 #23-1725 #24-1796 24-1796 24-1796 25-1862 25-1 #25 - 1862 
#26-1949 26-1949 26-1949 #27-2062 27-2062 #27-2062 #28-2178 28-2178 28-2176 
#29-2223 29-2223 #29-2223 #30-2310 30-2310 #30-2310 31-2481 31-2481 31-2481 
#32-2595 32-2595 #32-2595  #33-2644 33-2644 33-2644 #34-2738 34-2738 34-2738 





COKTACO 


SYMBOL CROSS REFERENCE 


SYMBOL VALUE 
$OCNT 024470 
$OMODE 024472 
sOVER 023636 
$PASS 001206 
$PASTM 2 
$POWER 027224 
$PWRON 027056 
$PWRMG 027212 
$PWRUP 027130 
$QUES 001174 
$ROCHR 025202 
$RODEC 025606 
$ROLIN 025332 
$RDOCT 025 
$ROSZ 2 10 
$RTNAD 023352 
$R2A 2 e008 
$SAVRE = eee008 
$SAVRE 027222 
$SCOPE 023360 


$STUP) = = 177777 
$SVLAD 023602 
$svPC = 000232 


$SWR = 167400 


i nd 


REFERENCES 
$35 -2822 
038 


35-2822 


#64-5589 


CREATED BY MACRO ON 29-MAR-85 AT 12:57 


$35 -2822 
#38-3208 
041-3484 
#44 -3769 
#47-3950 
#50-4129 
#53-4409 
056-4683 
#59-4950 
#62 -5366 
964-5548 
$64-5572 


64-5572 
64-5570 
28-2185 
64-5561 


64-5589 


64-5571 
64-5580 
64-5588 
64-5588 
64-5588 
64-5588 


64-5561 


CREF 


PAGE 15 


#36-2958 
#39-3321 
#42-3609 
#45 -3848 
948-3980 
#51-4207 
054-4544 
057-4793 
#60-5063 
#63-5456 


*64-5572 
64-5570 
37-3084 
64-5570 


64-5574 


#10-830 
#10-830 


vo2 


G14 


64-5574 


#64 -5589 


#10-830 
10-831 
10-831 
64-5574 


#10-830 
#10-830 


#36-2958 
#39-3321 


057-4793 
#60-5063 
763-5456 


#64-5572 


45-3852 
64-5570 


64-5574 


64-5549 


64-5574 


#10-830 


10-831 
10-831 
64-5580 


#10-830 
#10-830 


*64-5561 


64-5576 


10-830 
10-831 
10-836 
64-5580 


#10-830 
#10-830 


964-5519 


*64-5561 


64-5576 


SEQ 0175 


LL 4 
—_— 


, 
. rrr 


H14 


COKTACO CREATED BY MACRO ON 29-MAR-85 AT 12:57 PAGE 16 
SEQ 0176 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
64-5570 64-5570 64-5570 64-5570 64-5570 64-5570 64-5570 64-5570 64-5580 
64-5580 64-5580 64-5580 64-5580 64-5580 64-5580 64-5580 64-5580 64-5580 
64-5580 64-5589 
$SWREG 001222 #9-393 10-831 
$SWRMK = 000 #8-273 8-275 8-275 8-275 8-275 8-275 8-275 8-275 8-275 
8-275 64-5570 64-5570 64-5570 64-5570 64-5570 64-5570 64-5570 64-5570 
64-5570 64-5570 64-5570 
$TESTN 001204 #9-393 *64-5570 
$TIMES 001164 09-393 *10-831 *64-5561 +*64-5570 64-5570 +*64-5570 64-5570 64-5570 
$TKB 001146 oy ea 64-5571 64-5571 64-5571 64-5574 64-5574 64-5574 64-5574 
$TKS 001144 $9-393 64-5571 64-5571 64-5571 64-5571 64-5574 64-5574 64-5574 64-5574 
64-5574 64-5574 64-5574 
$TMPO 001160 *8-385 *8-388 #9-393 *16-1268  +*16-1270 16-1271 16-1289 18-1381 18-1392 
18-1394 +*19-1429 +*26-1964 26-2014 27-2110 *29-2240 29-2241 1+*35-2855 35-2861 
35-2878 +*37-3071 *37-3096 +*37-3136 37-3159 40-3411 +*45-3870 45-3886 46-3919 
48-3984 48-3991 53-4447 +*53-4448 # £+*«53-4449 53-4450 53-4453 53-4454 +53-4480 
*53-4481 +*53-4482 53-4483 53-4486 53-4487 +*56-4686  +56-4691 56-4739 56-4753 
*57-4809 57-4857 +*61-5245 61-5262 
$TMP1 001162 #9-393 *21-1577 21-1614 #¥*23-1742 23-1760 +*26-1975 26-1979 26-1989 +*26-2009 
*26-2010 26-2011 26-2014 «27-2098 27-2157 *53-4421 +*53-4499 53-4500 53-4501 
53-4502 +*56-4685 56-4768 
$™N = 000070 8-274 #8-274 11-881 11-881 #11-881 11-905 12-966 12-966 #12-966 
13-1052 13-1052 #13-1052 14-1116 14-1118 414-1118 15-1191 15-1191 #15-1191 
15-1229 16-1260 16-1260 #16-1260 16-1274 16-1291 17-1318 17-1318 17-1318 
17-1324 18-1374 18-1374 #18-1374 18-1377 19-1420 19-1420 #19-1420 19-1423 
20-1459 20-1459 #20-1459 20-1461 21-1541 21-1541 #21-1541 21-1544 22-1652 
22-1652 #22-1652 22-1655 22-1659 23-1725 23-1725 23-1725 23-1728 23-1759 
24-1796 24-1796 24-1796 24-1799 24-1803 24-1826 25-1862 25-1862 %25-1862 
25-1865 25-1869 26-1949 26-1949 26-1949 26-1952 26-1954 27-2062 27-2062 
#27-2062 27-2097 28-2178 28-2178 #28-2178 28-2181 28-2184 29-2223 29-2223 
#29-2223 29-2226 30-2310 30-2310 #30-2310 30-2387 31-2481 31-2481 31-2481 
31-2566 32-2595 32-2595 #32-2595 32-2598 33-2644 33-2644 #33-2644 34-2738 
34-2738 #34-2738 34-2741 35-2822 35-2822 35-2822 35- 2828 35-2887 36-2958 
36-2958  #36-2958 36-2960 37- 37-3062 37-3062 37-3160 38-3208 38-3208 
#38-3208 38-3214 39-3321 39-3321 39-3321 39-3382 40-3406 40-3406 840-3406 
41-3484 41-3484 #41-3484 42-3609 42-3609 #42-%3609 43-3709 43-3709 #43-3709 
44-3769 44-3769 #44-3769 44-3772 44-3809 45-3848 45-3848 #45-3848 45-3853 
45-3855 45-3857 45-3859 45-3863 45-3865 46-3912 46-3912 #46-3912 47-3950 
47-3950 #47-3950 48-3980 48-3980 #48-3980 48-3992 48-3994 49-4037 49-4037 
#49-4037 50-4129 50-4129 #50-4129 31-4207 51-4207 #51-4207 52-4293 52-4293 
#52-4293 53-4409 53-4409 #53-4409 33-4493 54-4 54-4544 #54-4544 54-4576 
55-4618 55-4618 #55-4618 56-4683 56-4683 #56-4683 57-4793 57-4793 #57-4793 
57-4796 58-4891 58-4891 #58-4891 58-4909 59-4950 59-4950 #59-4950 60-5063 
60-5063 #60-5063 61-5239 61-5239 #61-5239 62-5366 62-5366 62-5366 63-5456 
63-5456 #63-5456 63-5499 64-5519 64-5519 #64-5519 64-5548 64-5548 864-5548 
$TPB 001152 #9-393 64-5571 64-5571 64-5571 
$TPFLG 001157 #9-393 64-5571 64-5571 64-5571 
$TPS 001150 #9-393 64-5571 64-5571 64-5571 
$TRAP 026772 10-831 #64 -5588 
$TRAP2 027014 #64 -5588 64-5588 
$sTRP = 000014 064-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 


——— 
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SYMBOL CROSS REFERENCE CREF vo2 

SYMBOL VALUE REFERENCES 
64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 064-5588 
64-5588 64-5558 #64 -5588 64-5588 64-5588 64-5588 64-5588 
64-5588 64-5588 64-5588 964-5588 64-5588 64-5588 64-5588 
64-5588 64-558 64-5588 64-5588 964-5588 64-5588 64-5588 
964-5588 64-5588 64-5588 64-5588 64-5588 $64 -5588 64-5588 
64-5588 64-5588 

$TRPAD 027026 64-5588 #64-5588 

$TSTM 236 08-392 

$TSTNM 001102 09-393 *64-5561 64-5570 64-5570 *64-5570 64-5570 64-5570 
64-5570 64-5570 64-5570 64-5580 64-5580 64-5580 64-5582 

$TTYIN 025440 64-5574 64-5574 64-5574 964-5574 

STYPEN = #ee088 64-5588 

$TYPDS 024474 064-5573 64-5588 64-5588 

$TYPE 023712 064-5571 64-5586 64-5588 64-5588 

s$TYPEC 024124 64-5571 64-5571 64-5571 #64-5571 64-5574 

$TYPEX 024244 64-5571 64-5571 #64-5571 

$TYPOC 024272 64-5572 64-5588 64-5588 

$TYPON 024306 64-5572 #64-5572 64-5588 

$TYPOS 024246 964-5572 64-5588 

$UNIT 001212 09-393 

$UNITM 900242 #8-392 

$USWR 001224 $9-393 

$VECTI 001250 #9-393 

$VECT2 001252 09-393 

$XOFF * 000023 64-5571 64-557 

$XON = 9000021 64-5571 64-5571 64-5574 

$XTSTR 023400 064-5570 

$$GET4 = 000000 064-5561 64-556 

SOF ILL 024471 *64-5572 *64-5572 64-5572 #64-5572 

$40CAT = #ee008 64-5570 64-5580 

.$ASTA = eens 64-5586 64-5586 

$x = 000232 #8-392 8-392 


SEQ 0177 


LLL LLLLLLLL, 


em ee 
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MACRO CROSS REFERENCE CREF vo02 

MACRO NAME REFERENCES 

COMMEN 08-277 

ENDCOM 08-277 

ENOPAS 06-261 64-5561 

ESCAPE 08-277 

GETPRI 08-277 

GETSWR 08-277 #10-836 10-836 
98-249 64-5570 

T 08-277 

NEWTST 08-277 11-881 12-966 13-1052 14-1118 
20-1459 21-1541 22-1652 23-1725 24-1796 
30-2310 31-2481 32-2595 33-2644 34-2738 
40-3406 41-3484 42-3609 43-3709 44-3769 
50-4129 51-4207 52-4293 53-4409 54-4544 
60-5063 61-5239 62-5366 63-5456 64-5519 

POP 08-247 08-277 10-747 10-822 64-5573 
64-5589 

PUSH #8-247 08-277 10-734 10-817 64-5573 
64-5589 64-5589 

REPORT 08-277 

SAVEMT #10-830 10-830 

SETPRI 08-277 

SETTRA 064-5588 64-5588 64-5588 64-5588 64-5588 
64-5588 64-5588 

SETUP 08-277 10-831 

SKIP 08-247 08-277 11-905 15-1229 16-1274 
21-1544 22-1655 22-1659 23-1728 23-1759 
26-1952 26-1954 27-2097 28-2181 28-2184 
35-2828 35-2887 36-2960 37-3160 38-3214 
45-3857 45-3859 45-3863 45-3865 48-3992 
63-5499 

SLASH 08-277 

STARS 08-277 8-391 8-392 8-392 8-392 
12-966 12-966 13-1052 13-1052 14-1118 
17-1318 17-1318 18-1374 18-1374 19-1420 
22-1652 22-1652 23-1725 23-1725 24-1796 
27-2062 27-2062 28-2178 28-2178 29-2223 
32-2595 32-2595 33-2644 33-2644 34-27 
37-3062 37-3062 38-3208 38-3208 39-3321 
42-3609 42-3609 43-3709 43-3709 44-3769 
47-3950 47-3950 48-3980 48-3980 49-4037 
52-4293 52-4293 53-4409 53-4409 54-4544 
57-4793 57-4793 58-4891 58-4891 59-4950 
62-5366 62-5366 63-5456 63-5456 64-5519 
64-5571 64-5572 64-5573 64-5574 64-5574 
64-5586 64-5587 64-5588 64-5589 64-5589 

SWRSU 08-277 #10-831 10-831 

TRMT 064-558 

TYPBIN 08-277 

TYPDEC 08-277 64-5561 64-5561 

TYPNAM 08-277 10-836 

TYPNUM 08-277 

TYPOCS 08-277 


16-1260 
26-1949 
36-2958 
46-3912 
56-4683 


64-5576 
64-5576 


17-1318 
27-2062 
37-3062 
47-3950 
57-4793 
64-5586 


64-5586 


64-5588 


18-1377 


18-1374 


SEQ 0178 


LL LL LLL LE LA ~~ 


emma ee ee ——t™ —_- ——_ 
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MACRO CROSS REFERENCE CREF v02 aia 

MACRO NAME REFERENCES 

TYPOCT 08-277 64-5574 64-5587 64-5587 

TYPTXT 08-277 64-5561 64-5561 

s$ABORT 064-5 64-5580 

$$CMRE 08-393 

$4¢CMTM 08-393 9-393 9-393 

$$ESCA 96-277 

#NEWT 06-277 11-861 12-966 13-1052 14-1118 15-1191 16-1260 17-1318 18-1374 19-1420 
20-1459 21-1541 22-1652 23-1725 24-1796 25-1862 26-1949 -2062 28-2178 29-2223 
30-2310 31-2481 32-2595 33-2644 34-2738 35-2822 36-2958 37-3062 38- 39-3321 
40-3406 41-3484 42-3609 43-3709 44-3769 45-3848 46-3912 47-3950 48-3980 49-4037 
50-4129 51-4207 52-4293 53-4409 54-4544 55-4618 56-4683 57-4793 58-4891 59-4950 
60-5063 61-5239 62-5366 63-5456 64-5519 64-5548 

$$SET 064 -5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 64-5588 
64-5588 64-5588 

$$SETM 010-831 10-831 

$$SKIP 08-277 11-905 15-1229 16-1274 16-1291 17-1324 18-1377 19-1423 20-1461 21-1544 
22-1655 22-1659 23-1728 23-1759 24-1799 24-1803 24-1826 25-1865 25-1869 26-1952 
26-1954 27-2097 28-2181 28-2184 29-2226 30-2387 31-2566 32-2598 34-2741 35-2828 
35-2887 36-2960 37-3160 38-3214 39-3382 44-3772 44-3809 45-3853 45-3855 45-3857 
45-3859 45-3863 45-3865 48-3992 48-3994 53-4493 54-4576 57-4796 58-4909 63-5499 

 EQUAT 98-244 8-277 

. MEADE 98-244 8-274 

KT11 08-247 8-278 

. SETUP 98-244 10-830 

. SWRHI 08-244 8-275 

. SWRLO 08-244 08-275 8-276 

. $ACT1 08-243 8-391 

. $APTB 09-393 9-393 

. $APTH 08-243 8-392 

. SAPTY 08-243 64-5586 

. $CATC 98-244 8-383 

. $CMTA 98-245 8-393 

. $EOP 08-245 64-5561 

. $ERRO 08-245 64-5580 

. SERRT 08-245 64-5587 

. $POWE 08-2 64-5589 

. $#RDDE 08-247 64-5576 

. $#ROO0C 08-247 64-5575 

. $READ 08-246 64-5574 

. $SAVE 08-246 

. $SCOP 08-245 64-5570 

$TRAP 08-246 64-5588 

$TYPO 08-246 64-5573 

$TYPE 08-245 64-5571 

. $TYPO 08-246 64-5572 


